BBS in a Box 11

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Prog / D-G / DropInfo.sit / DropInfo ƒ / DI_P / DIStuff.p next >
MacBinary | 1992-01-26 | 19.3 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Jan 26 12:18:31 1992, modified Sun Jan 26 12:18:31 1992, creator 'MPS ', type ASCII, 15340 bytes "DIStuff.p" , at 0x3c6c 4132 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 44 49 53 74 75 66 | 66 2e 70 00 00 00 00 00 |..DIStuf|f.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 3b ec 00 | 00 10 24 a5 a8 9d e7 a5 |.....;..|..$.....|
|00000060| a8 9d e7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 96 d9 00 00 |........|........|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 7d |********|*******}|
|000000d0| 0d 7b 2a 2a 7d 0d 7b 2a | 2a 20 20 50 72 6f 6a 65 |.{**}.{*|*  Proje|
|000000e0| 63 74 20 4e 61 6d 65 3a | 09 44 72 6f 70 49 6e 66 |ct Name:|.DropInf|
|000000f0| 6f 7d 0d 7b 2a 2a 20 20 | 20 20 20 46 69 6c 65 20 |o}.{**  |   File |
|00000100| 4e 61 6d 65 3a 09 44 49 | 53 74 75 66 66 2e 70 7d |Name:.DI|Stuff.p}|
|00000110| 0d 7b 2a 2a 7d 0d 7b 2a | 2a 20 20 20 44 65 73 63 |.{**}.{*|*   Desc|
|00000120| 72 69 70 74 69 6f 6e 3a | 09 43 6f 6e 74 61 69 6e |ription:|.Contain|
|00000130| 73 20 74 68 65 20 44 72 | 6f 70 49 6e 66 6f 2d 73 |s the Dr|opInfo-s|
|00000140| 70 65 63 69 66 69 63 20 | 63 6f 64 65 7d 0d 7b 2a |pecific |code}.{*|
|00000150| 2a 7d 0d 7b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*}.{****|********|
|00000160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 7d 0d 7b 2a 2a | 20 20 20 20 20 20 20 20 |***}.{**|        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 |        |       A|
|000001c0| 20 55 20 54 20 48 20 4f | 20 52 20 20 20 49 20 44 | U T H O| R   I D|
|000001d0| 20 45 20 4e 20 54 20 49 | 20 54 20 59 7d 0d 7b 2a | E N T I| T Y}.{*|
|000001e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 7d 0d |********|******}.|
|00000230| 7b 2a 2a 7d 0d 7b 2a 2a | 09 49 6e 69 74 69 61 6c |{**}.{**|.Initial|
|00000240| 73 09 4e 61 6d 65 7d 0d | 7b 2a 2a 09 2d 2d 2d 2d |s.Name}.|{**.----|
|00000250| 2d 2d 2d 2d 09 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |----.---|--------|
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 7d 0d 7b 2a | 2a 09 53 43 53 09 09 09 |----}.{*|*.SCS...|
|00000290| 53 74 65 70 68 61 6e 20 | 53 6f 6d 6f 67 79 69 7d |Stephan |Somogyi}|
|000002a0| 0d 7b 2a 2a 09 4c 44 52 | 09 09 09 4c 65 6f 6e 61 |.{**.LDR|...Leona|
|000002b0| 72 64 20 52 6f 73 65 6e | 74 68 6f 6c 7d 0d 7b 2a |rd Rosen|thol}.{*|
|000002c0| 2a 7d 0d 7b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*}.{****|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000310| 2a 2a 2a 7d 0d 7b 2a 2a | 20 20 20 20 20 20 20 20 |***}.{**|        |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 52 20 |        |      R |
|00000330| 45 20 56 20 49 20 53 20 | 49 20 4f 20 4e 20 20 20 |E V I S |I O N   |
|00000340| 48 20 49 20 53 20 54 20 | 4f 20 52 20 59 7d 0d 7b |H I S T |O R Y}.{|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 7d |********|*******}|
|000003a0| 0d 7b 2a 2a 7d 0d 7b 2a | 2a 09 20 20 44 61 74 65 |.{**}.{*|*.  Date|
|000003b0| 09 09 56 65 72 73 09 41 | 75 74 68 6f 72 09 44 65 |..Vers.A|uthor.De|
|000003c0| 73 63 72 69 70 74 69 6f | 6e 7d 0d 7b 2a 2a 09 2d |scriptio|n}.{**.-|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 09 | 2d 2d 2d 2d 2d 09 2d 2d |-------.|-----.--|
|000003e0| 2d 2d 2d 2d 09 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |----.---|--------|
|000003f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000410| 2d 2d 7d 0d 7b 2a 2a 09 | 31 32 2f 32 32 2f 39 31 |--}.{**.|12/22/91|
|00000420| 09 09 09 4c 44 52 09 09 | 46 69 6e 69 73 68 65 64 |...LDR..|Finished|
|00000430| 20 75 70 20 50 61 73 63 | 61 6c 20 70 6f 72 74 7d | up Pasc|al port}|
|00000440| 0d 7b 2a 2a 09 31 32 2f | 31 31 2f 39 31 09 09 09 |.{**.12/|11/91...|
|00000450| 4c 44 52 09 09 50 6f 72 | 74 65 64 20 74 6f 20 50 |LDR..Por|ted to P|
|00000460| 61 73 63 61 6c 7d 0d 7b | 2a 2a 7d 0d 7b 2a 2a 09 |ascal}.{|**}.{**.|
|00000470| 30 36 2e 30 39 2e 39 31 | 09 61 28 2d 31 29 09 53 |06.09.91|.a(-1).S|
|00000480| 43 53 09 09 66 69 6c 65 | 73 20 69 6d 70 6c 65 6d |CS..file|s implem|
|00000490| 65 6e 74 65 64 20 65 78 | 63 65 70 74 20 66 6f 72 |ented ex|cept for|
|000004a0| 20 72 65 73 6d 61 70 20 | 6c 6f 63 6b 69 6e 67 7d | resmap |locking}|
|000004b0| 0d 7b 2a 2a 09 31 30 2e | 30 39 2e 39 31 09 61 32 |.{**.10.|09.91.a2|
|000004c0| 09 09 09 09 72 65 6d 6f | 76 65 64 20 72 65 73 6d |....remo|ved resm|
|000004d0| 61 70 20 6c 6f 63 6b 69 | 6e 67 20 61 73 20 74 68 |ap locki|ng as th|
|000004e0| 65 72 65 20 69 73 20 6e | 6f 20 6e 69 63 65 20 77 |ere is n|o nice w|
|000004f0| 61 79 20 74 6f 20 64 6f | 20 69 74 7d 0d 7b 2a 2a |ay to do| it}.{**|
|00000500| 09 09 09 09 09 09 09 09 | 61 64 64 65 64 20 66 6f |........|added fo|
|00000510| 6c 64 65 72 73 2c 20 6e | 6f 74 20 73 75 72 65 20 |lders, n|ot sure |
|00000520| 74 68 65 79 20 77 6f 72 | 6b 20 74 68 65 20 77 61 |they wor|k the wa|
|00000530| 79 20 74 68 65 79 20 73 | 68 6f 75 6c 64 2c 20 74 |y they s|hould, t|
|00000540| 68 6f 75 67 68 c9 7d 0d | 7b 2a 2a 09 32 35 2e 30 |hough.}.|{**.25.0|
|00000550| 39 2e 39 31 09 61 33 09 | 09 09 09 61 64 64 65 64 |9.91.a3.|...added|
|00000560| 20 74 68 65 20 6c 61 75 | 72 69 65 20 67 69 6c 6c | the lau|rie gill|
|00000570| 20 66 65 61 74 75 72 65 | 3a 20 63 6d 64 2d 71 20 | feature|: cmd-q |
|00000580| 71 75 69 74 73 20 72 65 | 67 61 72 64 6c 65 73 73 |quits re|gardless|
|00000590| 20 6f 66 20 77 68 65 74 | 68 65 72 7d 0d 7b 2a 2a | of whet|her}.{**|
|000005a0| 09 09 09 09 09 09 09 09 | 74 68 65 72 65 20 61 72 |........|there ar|
|000005b0| 65 20 61 6e 79 20 66 69 | 6c 65 73 2f 66 6f 6c 64 |e any fi|les/fold|
|000005c0| 65 72 73 20 6c 65 66 74 | 20 74 6f 20 64 65 61 6c |ers left| to deal|
|000005d0| 20 77 69 74 68 2e 20 61 | 64 64 65 64 20 66 6c 75 | with. a|dded flu|
|000005e0| 73 68 76 6f 6c 73 2e 7d | 0d 7b 2a 2a 09 32 36 2e |shvols.}|.{**.26.|
|000005f0| 30 39 2e 39 31 09 61 34 | 09 09 09 09 61 64 64 65 |09.91.a4|....adde|
|00000600| 64 20 63 68 61 6e 67 65 | 20 61 6c 6c 2e 20 66 69 |d change| all. fi|
|00000610| 78 65 64 20 73 6f 6d 65 | 20 73 74 75 70 69 64 20 |xed some| stupid |
|00000620| 61 33 20 62 75 67 73 2e | 7d 0d 7b 2a 2a 09 32 37 |a3 bugs.|}.{**.27|
|00000630| 2e 30 39 2e 39 31 09 62 | 31 09 09 09 09 61 64 64 |.09.91.b|1....add|
|00000640| 65 64 20 64 69 6d 6d 69 | 6e 67 20 6f 66 20 63 68 |ed dimmi|ng of ch|
|00000650| 61 6e 67 65 20 61 6c 6c | 20 69 66 20 6f 6e 6c 79 |ange all| if only|
|00000660| 20 6f 6e 65 20 66 69 6c | 65 20 64 72 6f 70 70 65 | one fil|e droppe|
|00000670| 64 2e 20 73 6f 75 72 63 | 65 7d 0d 7b 2a 2a 09 09 |d. sourc|e}.{**..|
|00000680| 09 09 09 09 09 09 72 65 | 61 6c 69 74 79 20 63 68 |......re|ality ch|
|00000690| 65 63 6b 2e 7d 0d 7b 2a | 2a 09 30 31 2e 31 30 2e |eck.}.{*|*.01.10.|
|000006a0| 39 31 09 62 31 09 09 09 | 09 63 68 61 6e 67 65 64 |91.b1...|.changed|
|000006b0| 20 6f 61 70 70 20 62 65 | 68 61 76 69 6f 72 20 74 | oapp be|havior t|
|000006c0| 6f 20 77 68 61 74 20 69 | 74 20 73 68 6f 75 6c 64 |o what i|t should|
|000006d0| 20 62 65 2e 20 62 65 74 | 74 65 72 20 76 6f 6c 75 | be. bet|ter volu|
|000006e0| 6d 65 20 73 75 70 74 2e | 7d 0d 7b 2a 2a 09 30 39 |me supt.|}.{**.09|
|000006f0| 2e 31 30 2e 39 31 09 66 | 63 31 09 09 09 09 6d 6f |.10.91.f|c1....mo|
|00000700| 76 65 64 20 69 6e 69 74 | 69 61 6c 20 73 65 6c 65 |ved init|ial sele|
|00000710| 63 74 69 6f 6e 20 74 6f | 20 74 79 70 65 20 72 61 |ction to| type ra|
|00000720| 74 68 65 72 20 74 68 61 | 6e 20 63 72 65 61 74 6f |ther tha|n creato|
|00000730| 72 7d 0d 7b 2a 2a 09 09 | 09 09 66 63 32 09 09 09 |r}.{**..|..fc2...|
|00000740| 09 6d 69 6e 6f 72 20 64 | 69 76 65 72 67 65 6e 63 |.minor d|ivergenc|
|00000750| 65 20 77 68 65 72 65 20 | 53 43 53 20 61 6e 64 20 |e where |SCS and |
|00000760| 4c 44 52 20 62 6f 74 68 | 20 64 69 64 20 73 69 6d |LDR both| did sim|
|00000770| 69 6c 61 72 20 74 68 69 | 6e 67 73 7d 0d 7b 2a 2a |ilar thi|ngs}.{**|
|00000780| 09 32 39 2e 31 31 2e 39 | 31 09 66 63 33 09 09 09 |.29.11.9|1.fc3...|
|00000790| 09 75 73 65 64 20 31 31 | 2f 32 34 2f 39 31 20 44 |.used 11|/24/91 D|
|000007a0| 72 6f 70 53 68 65 6c 6c | 7d 0d 7b 2a 2a 09 09 09 |ropShell|}.{**...|
|000007b0| 09 09 09 09 09 6d 61 64 | 65 20 6e 6f 6e 2d 69 6e |.....mad|e non-in|
|000007c0| 6c 69 6e 65 20 4d 79 42 | 69 74 54 73 74 20 61 6e |line MyB|itTst an|
|000007d0| 64 20 4d 79 42 69 74 53 | 65 74 43 6c 72 7d 0d 7b |d MyBitS|etClr}.{|
|000007e0| 2a 2a 09 09 09 09 09 09 | 09 09 6d 61 64 65 20 44 |**......|..made D|
|000007f0| 49 20 63 6f 6d 70 69 6c | 61 62 6c 65 20 62 79 20 |I compil|able by |
|00000800| 62 6f 74 68 20 54 48 49 | 4e 4b 20 61 6e 64 20 4d |both THI|NK and M|
|00000810| 50 57 7d 0d 7b 2a 2a 09 | 33 30 2e 31 31 2e 39 31 |PW}.{**.|30.11.91|
|00000820| 09 66 63 33 2b 09 4c 44 | 52 09 09 6d 61 64 65 20 |.fc3+.LD|R..made |
|00000830| 4d 55 43 48 20 6d 6f 72 | 65 20 75 73 65 20 6f 66 |MUCH mor|e use of|
|00000840| 20 65 6e 75 6d 27 73 20 | 26 20 23 64 65 66 69 6e | enum's |& #defin|
|00000850| 65 73 20 72 61 74 68 65 | 72 20 74 68 61 6e 20 68 |es rathe|r than h|
|00000860| 61 72 64 20 63 6f 64 65 | 64 20 76 61 6c 75 65 73 |ard code|d values|
|00000870| 7d 0d 7b 2a 2a 09 09 09 | 09 09 09 09 09 41 6c 73 |}.{**...|.....Als|
|00000880| 6f 20 61 64 64 65 64 20 | 73 6f 6d 65 20 63 6f 6d |o added |some com|
|00000890| 6d 65 6e 74 73 7d 0d 7b | 2a 2a 09 09 09 09 09 09 |ments}.{|**......|
|000008a0| 09 09 41 70 70 6c 69 65 | 64 20 68 61 63 6b 20 69 |..Applie|d hack i|
|000008b0| 6e 20 49 74 73 41 44 69 | 72 20 66 6f 72 20 4d 50 |n ItsADi|r for MP|
|000008c0| 57 20 43 20 63 6f 6d 70 | 69 6c 65 72 7d 0d 7b 2a |W C comp|iler}.{*|
|000008d0| 2a 09 30 31 2e 31 32 2e | 39 31 09 46 34 09 09 53 |*.01.12.|91.F4..S|
|000008e0| 43 53 09 09 52 65 66 6f | 72 6d 61 74 74 69 6e 67 |CS..Refo|rmatting|
|000008f0| 20 61 6e 64 20 63 6f 6d | 6d 65 6e 74 69 6e 67 7d | and com|menting}|
|00000900| 0d 7b 2a 2a 09 09 09 09 | 09 09 09 09 52 65 70 6c |.{**....|....Repl|
|00000910| 61 63 65 64 20 49 55 45 | 71 75 61 6c 53 74 72 69 |aced IUE|qualStri|
|00000920| 6e 67 20 77 69 74 68 20 | 45 71 75 61 6c 53 74 72 |ng with |EqualStr|
|00000930| 69 6e 67 20 66 6f 72 20 | 62 65 74 74 65 72 20 63 |ing for |better c|
|00000940| 61 73 65 20 73 65 6e 73 | 69 74 69 76 69 74 79 7d |ase sens|itivity}|
|00000950| 0d 7b 2a 2a 7d 0d 7b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.{**}.{*|********|
|00000960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000009a0| 2a 2a 2a 2a 2a 7d 0d 0d | 55 4e 49 54 20 44 49 53 |*****}..|UNIT DIS|
|000009b0| 74 75 66 66 3b 0d 49 4e | 54 45 52 46 41 43 45 0d |tuff;.IN|TERFACE.|
|000009c0| 0d 7b 24 49 46 43 20 54 | 48 49 4e 4b 5f 50 61 73 |.{$IFC T|HINK_Pas|
|000009d0| 63 61 6c 7d 0d 09 55 53 | 45 53 0d 09 09 41 6c 69 |cal}..US|ES...Ali|
|000009e0| 61 73 65 73 2c 20 41 70 | 70 6c 65 45 76 65 6e 74 |ases, Ap|pleEvent|
|000009f0| 73 2c 20 50 50 43 54 6f | 6f 6c 62 6f 78 2c 20 50 |s, PPCTo|olbox, P|
|00000a00| 72 6f 63 65 73 73 65 73 | 2c 20 53 63 72 69 70 74 |rocesses|, Script|
|00000a10| 2c 20 44 53 47 6c 6f 62 | 61 6c 73 2c 20 44 53 55 |, DSGlob|als, DSU|
|00000a20| 74 69 6c 73 2c 20 44 49 | 55 74 69 6c 73 3b 09 7b |tils, DI|Utils;.{|
|00000a30| 6a 75 73 74 20 74 68 65 | 20 44 72 6f 70 53 68 65 |just the| DropShe|
|00000a40| 6c 6c 20 66 69 6c 65 73 | 7d 0d 7b 24 45 4c 53 45 |ll files|}.{$ELSE|
|00000a50| 43 7d 0d 09 55 53 45 53 | 0d 09 7b 20 46 69 72 73 |C}..USES|..{ Firs|
|00000a60| 74 20 6c 6f 61 64 20 73 | 74 61 6e 64 61 72 64 20 |t load s|tandard |
|00000a70| 69 6e 74 65 72 66 61 63 | 65 20 66 69 6c 65 73 7d |interfac|e files}|
|00000a80| 0d 09 09 4d 65 6d 54 79 | 70 65 73 2c 20 51 75 69 |...MemTy|pes, Qui|
|00000a90| 63 6b 44 72 61 77 2c 20 | 0d 0d 09 7b 20 4e 6f 77 |ckDraw, |...{ Now|
|00000aa0| 20 69 6e 63 6c 75 64 65 | 20 74 68 65 20 73 74 75 | include| the stu|
|00000ab0| 66 66 20 66 72 6f 6d 20 | 4f 53 49 6e 74 66 20 7d |ff from |OSIntf }|
|00000ac0| 0d 09 09 4f 53 49 6e 74 | 66 2c 20 0d 0d 09 7b 20 |...OSInt|f, ...{ |
|00000ad0| 4e 6f 77 20 49 6e 63 6c | 75 64 65 20 74 68 65 20 |Now Incl|ude the |
|00000ae0| 73 74 75 66 66 20 66 72 | 6f 6d 20 54 6f 6f 6c 49 |stuff fr|om ToolI|
|00000af0| 6e 74 66 2e 70 20 7d 0d | 09 09 54 6f 6f 6c 49 6e |ntf.p }.|..ToolIn|
|00000b00| 74 66 2c 20 50 61 63 6b | 61 67 65 73 2c 20 47 65 |tf, Pack|ages, Ge|
|00000b10| 73 74 61 6c 74 45 71 75 | 2c 20 0d 0d 09 7b 20 54 |staltEqu|, ...{ T|
|00000b20| 68 65 6e 20 61 6e 79 20 | 4f 54 48 45 52 20 54 6f |hen any |OTHER To|
|00000b30| 6f 6c 62 6f 78 20 69 6e | 74 65 72 66 61 63 65 73 |olbox in|terfaces|
|00000b40| 2e 2e 2e 20 7d 0d 09 09 | 46 69 6c 65 73 2c 20 41 |... }...|Files, A|
|00000b50| 6c 69 61 73 65 73 2c 20 | 41 70 70 6c 65 45 76 65 |liases, |AppleEve|
|00000b60| 6e 74 73 2c 20 50 50 43 | 54 6f 6f 6c 62 6f 78 2c |nts, PPC|Toolbox,|
|00000b70| 20 50 72 6f 63 65 73 73 | 65 73 2c 20 0d 0d 09 7b | Process|es, ...{|
|00000b80| 20 41 6e 64 20 66 69 6e | 61 6c 6c 79 20 61 6e 79 | And fin|ally any|
|00000b90| 20 66 69 6c 65 73 20 66 | 72 6f 6d 20 44 72 6f 70 | files f|rom Drop|
|00000ba0| 53 68 65 6c 6c 20 7d 0d | 09 09 44 53 47 6c 6f 62 |Shell }.|..DSGlob|
|00000bb0| 61 6c 73 2c 20 44 53 55 | 74 69 6c 73 2c 20 44 49 |als, DSU|tils, DI|
|00000bc0| 55 74 69 6c 73 3b 0d 7b | 24 45 4e 44 43 20 54 48 |Utils;.{|$ENDC TH|
|00000bd0| 49 4e 4b 5f 50 61 73 63 | 61 6c 7d 0d 0d 09 43 4f |INK_Pasc|al}...CO|
|00000be0| 4e 53 54 0d 09 7b 62 69 | 74 20 6e 75 6d 62 65 72 |NST..{bi|t number|
|00000bf0| 73 20 66 6f 72 20 74 68 | 65 20 72 65 6c 65 76 61 |s for th|e releva|
|00000c00| 6e 74 20 66 6c 61 67 73 | 20 69 6e 20 74 68 65 20 |nt flags| in the |
|00000c10| 46 49 6e 66 6f 20 73 74 | 72 75 63 74 7d 0d 09 09 |FInfo st|ruct}...|
|00000c20| 62 49 73 4c 6f 63 6b 65 | 64 20 3d 20 30 3b 0d 09 |bIsLocke|d = 0;..|
|00000c30| 09 62 49 73 44 69 72 20 | 3d 20 34 3b 0d 09 09 62 |.bIsDir |= 4;...b|
|00000c40| 49 73 53 68 61 72 65 64 | 20 3d 20 36 3b 0d 09 09 |IsShared| = 6;...|
|00000c50| 62 48 61 73 4e 6f 49 4e | 49 54 73 20 3d 20 37 3b |bHasNoIN|ITs = 7;|
|00000c60| 0d 09 09 62 49 6e 69 74 | 65 64 20 3d 20 38 3b 0d |...bInit|ed = 8;.|
|00000c70| 09 09 62 43 75 73 74 6f | 6d 49 63 6e 20 3d 20 31 |..bCusto|mIcn = 1|
|00000c80| 30 3b 0d 09 09 62 53 74 | 61 74 69 6f 6e 61 72 79 |0;...bSt|ationary|
|00000c90| 20 3d 20 31 31 3b 0d 09 | 09 62 4e 61 6d 65 4c 6f | = 11;..|.bNameLo|
|00000ca0| 63 6b 20 3d 20 31 32 3b | 0d 09 09 62 42 75 6e 64 |ck = 12;|...bBund|
|00000cb0| 6c 65 20 3d 20 31 33 3b | 0d 09 09 62 49 6e 76 69 |le = 13;|...bInvi|
|00000cc0| 73 69 62 6c 65 20 3d 20 | 31 34 3b 0d 09 09 62 49 |sible = |14;...bI|
|00000cd0| 73 41 6c 69 61 73 20 3d | 20 31 35 3b 0d 0d 09 54 |sAlias =| 15;...T|
|00000ce0| 59 50 45 0d 09 09 62 69 | 74 73 41 72 72 61 79 20 |YPE...bi|tsArray |
|00000cf0| 3d 20 41 52 52 41 59 5b | 62 49 73 4c 6f 63 6b 65 |= ARRAY[|bIsLocke|
|00000d00| 64 2e 2e 62 49 73 41 6c | 69 61 73 5d 20 4f 46 20 |d..bIsAl|ias] OF |
|00000d10| 42 6f 6f 6c 65 61 6e 3b | 0d 0d 09 56 41 52 0d 09 |Boolean;|...VAR..|
|00000d20| 09 66 69 6c 65 42 69 74 | 73 3a 20 62 69 74 73 41 |.fileBit|s: bitsA|
|00000d30| 72 72 61 79 3b 09 09 7b | 20 63 6f 6e 74 61 69 6e |rray;..{| contain|
|00000d40| 73 20 74 68 65 20 76 61 | 72 69 6f 75 73 20 62 69 |s the va|rious bi|
|00000d50| 74 73 20 73 74 61 74 65 | 73 20 7d 0d 09 09 67 41 |ts state|s }...gA|
|00000d60| 62 6f 72 74 3a 20 42 6f | 6f 6c 65 61 6e 3b 09 09 |bort: Bo|olean;..|
|00000d70| 09 7b 20 71 75 69 74 20 | 61 6e 64 20 69 67 6e 6f |.{ quit |and igno|
|00000d80| 72 65 20 6f 74 68 65 72 | 73 3f 20 7d 0d 09 09 67 |re other|s? }...g|
|00000d90| 43 68 67 41 6c 6c 3a 20 | 42 6f 6f 6c 65 61 6e 3b |ChgAll: |Boolean;|
|00000da0| 09 09 09 7b 20 75 73 65 | 64 20 74 6f 20 74 72 61 |...{ use|d to tra|
|00000db0| 63 6b 20 63 68 61 6e 67 | 65 20 61 6c 6c 20 7d 0d |ck chang|e all }.|
|00000dc0| 09 09 67 49 73 46 69 6c | 65 73 3a 20 42 6f 6f 6c |..gIsFil|es: Bool|
|00000dd0| 65 61 6e 3b 09 09 09 7b | 20 46 69 6c 65 73 20 6f |ean;...{| Files o|
|00000de0| 72 20 66 6f 6c 64 65 72 | 73 3f 20 7d 0d 09 09 67 |r folder|s? }...g|
|00000df0| 57 61 72 6e 65 64 3a 20 | 42 6f 6f 6c 65 61 6e 3b |Warned: |Boolean;|
|00000e00| 09 09 09 7b 20 68 61 73 | 20 74 68 65 20 75 73 65 |...{ has| the use|
|00000e10| 72 20 62 65 65 6e 20 77 | 61 72 6e 65 64 3f 20 7d |r been w|arned? }|
|00000e20| 0d 09 09 67 54 79 70 65 | 53 74 72 2c 20 67 43 72 |...gType|Str, gCr|
|00000e30| 65 61 53 74 72 3a 20 53 | 74 72 32 35 35 3b 09 7b |eaStr: S|tr255;.{|
|00000e40| 20 75 73 65 64 20 62 79 | 20 43 68 61 6e 67 65 41 | used by| ChangeA|
|00000e50| 6c 6c 20 74 6f 20 72 65 | 73 65 74 20 74 68 65 20 |ll to re|set the |
|00000e60| 74 79 70 65 2f 63 72 65 | 61 74 6f 72 20 7d 0d 09 |type/cre|ator }..|
|00000e70| 09 67 54 65 6d 70 53 74 | 72 3a 20 53 74 72 32 35 |.gTempSt|r: Str25|
|00000e80| 35 3b 09 09 09 7b 20 67 | 6c 6f 62 61 6c 20 74 65 |5;...{ g|lobal te|
|00000e90| 6d 70 53 74 72 20 7d 0d | 09 09 67 4f 6e 6c 79 4f |mpStr }.|..gOnlyO|
|00000ea0| 6e 65 3a 20 42 6f 6f 6c | 65 61 6e 3b 09 09 09 7b |ne: Bool|ean;...{|
|00000eb0| 20 6f 6e 6c 79 20 6f 6e | 65 20 66 69 6c 65 20 6f | only on|e file o|
|00000ec0| 72 20 66 6f 6c 64 65 72 | 3f 20 7d 0d 0d 7b 2d 2d |r folder|? }..{--|
|00000ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ee0| 2d 2d 2d 7d 0d 7b 49 6e | 74 65 72 66 61 63 65 20 |---}.{In|terface |
|00000ef0| 44 65 66 69 6e 69 74 69 | 6f 6e 73 7d 0d 7b 2d 2d |Definiti|ons}.{--|
|00000f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f10| 2d 2d 2d 7d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |---}..PR|OCEDURE |
|00000f20| 47 65 74 54 68 65 49 6e | 66 6f 20 28 70 46 53 53 |GetTheIn|fo (pFSS|
|00000f30| 3a 20 46 53 53 70 65 63 | 50 74 72 29 3b 0d 0d 0d |: FSSpec|Ptr);...|
|00000f40| 49 4d 50 4c 45 4d 45 4e | 54 41 54 49 4f 4e 0d 0d |IMPLEMEN|TATION..|
|00000f50| 0d 7b 44 6f 65 73 20 61 | 20 62 69 74 20 74 65 73 |.{Does a| bit tes|
|00000f60| 74 20 69 6e 20 36 38 6b | 20 6f 72 64 65 72 2c 20 |t in 68k| order, |
|00000f70| 6e 6f 74 20 74 68 65 20 | 72 65 76 65 72 73 65 20 |not the |reverse |
|00000f80| 6c 69 6b 65 20 74 68 65 | 20 54 6f 6f 6c 62 6f 78 |like the| Toolbox|
|00000f90| 27 73 20 42 69 74 54 73 | 74 28 29 20 7d 0d 09 46 |'s BitTs|t() }..F|
|00000fa0| 55 4e 43 54 49 4f 4e 20 | 4d 79 42 69 74 54 73 74 |UNCTION |MyBitTst|
|00000fb0| 20 28 70 42 4d 61 70 2c | 20 70 42 69 74 4e 75 6d | (pBMap,| pBitNum|
|00000fc0| 3a 20 69 6e 74 65 67 65 | 72 29 3a 20 42 6f 6f 6c |: intege|r): Bool|
|00000fd0| 65 61 6e 3b 0d 09 42 45 | 47 49 4e 0d 09 09 4d 79 |ean;..BE|GIN...My|
|00000fe0| 42 69 74 54 73 74 20 3a | 3d 20 42 54 73 74 28 4c |BitTst :|= BTst(L|
|00000ff0| 6f 6e 67 69 6e 74 28 70 | 42 4d 61 70 29 2c 20 70 |ongint(p|BMap), p|
|00001000| 42 69 74 4e 75 6d 29 3b | 0d 09 45 4e 44 3b 0d 0d |BitNum);|..END;..|
|00001010| 7b 20 43 6c 65 61 72 73 | 20 6f 72 20 73 65 74 73 |{ Clears| or sets|
|00001020| 20 74 68 65 20 73 70 65 | 63 69 66 69 65 64 20 62 | the spe|cified b|
|00001030| 69 74 20 64 65 70 65 6e | 64 69 6e 67 20 6f 6e 20 |it depen|ding on |
|00001040| 70 53 74 61 74 65 20 7d | 0d 09 50 52 4f 43 45 44 |pState }|..PROCED|
|00001050| 55 52 45 20 4d 79 42 69 | 74 53 65 74 43 6c 72 20 |URE MyBi|tSetClr |
|00001060| 28 56 41 52 20 70 42 4d | 61 70 3a 20 49 6e 74 65 |(VAR pBM|ap: Inte|
|00001070| 67 65 72 3b 20 70 42 69 | 74 4e 75 6d 3a 20 49 6e |ger; pBi|tNum: In|
|00001080| 74 65 67 65 72 3b 20 70 | 53 74 61 74 65 3a 20 42 |teger; p|State: B|
|00001090| 6f 6f 6c 65 61 6e 29 3b | 0d 09 09 56 41 52 0d 09 |oolean);|...VAR..|
|000010a0| 09 09 74 65 6d 70 4c 6f | 6e 67 3a 20 6c 6f 6e 67 |..tempLo|ng: long|
|000010b0| 69 6e 74 3b 0d 09 42 45 | 47 49 4e 0d 09 09 74 65 |int;..BE|GIN...te|
|000010c0| 6d 70 4c 6f 6e 67 20 3a | 3d 20 70 42 4d 61 70 3b |mpLong :|= pBMap;|
|000010d0| 09 09 7b 77 65 20 6e 65 | 65 64 20 74 6f 20 64 6f |..{we ne|ed to do|
|000010e0| 20 74 68 69 73 20 73 69 | 6e 63 65 20 54 68 50 20 | this si|nce ThP |
|000010f0| 77 6f 6e 27 74 20 63 6f | 65 72 63 65 20 56 41 52 |won't co|erce VAR|
|00001100| 20 70 61 72 61 6d 73 7d | 0d 0d 09 09 49 46 20 28 | params}|....IF (|
|00001110| 70 53 74 61 74 65 29 20 | 54 48 45 4e 0d 09 09 09 |pState) |THEN....|
|00001120| 42 53 65 74 28 74 65 6d | 70 4c 6f 6e 67 2c 20 70 |BSet(tem|pLong, p|
|00001130| 42 69 74 4e 75 6d 29 0d | 09 09 45 4c 53 45 0d 09 |BitNum).|..ELSE..|
|00001140| 09 09 42 43 6c 72 28 74 | 65 6d 70 4c 6f 6e 67 2c |..BClr(t|empLong,|
|00001150| 20 70 42 69 74 4e 75 6d | 29 3b 0d 0d 09 09 70 42 | pBitNum|);....pB|
|00001160| 4d 61 70 20 3a 3d 20 4c | 6f 57 6f 72 64 28 74 65 |Map := L|oWord(te|
|00001170| 6d 70 4c 6f 6e 67 29 3b | 0d 09 45 4e 44 3b 0d 0d |mpLong);|..END;..|
|00001180| 7b 20 74 6f 67 67 6c 65 | 73 20 61 20 42 6f 6f 6c |{ toggle|s a Bool|
|00001190| 65 61 6e 20 61 6e 64 20 | 73 65 74 73 20 74 68 65 |ean and |sets the|
|000011a0| 20 64 69 72 74 79 20 66 | 6c 61 67 20 61 73 20 77 | dirty f|lag as w|
|000011b0| 65 6c 6c 20 7d 0d 09 50 | 52 4f 43 45 44 55 52 45 |ell }..P|ROCEDURE|
|000011c0| 20 54 6f 67 67 6c 65 42 | 69 74 20 28 56 41 52 20 | ToggleB|it (VAR |
|000011d0| 70 42 6f 6f 6c 3a 20 42 | 6f 6f 6c 65 61 6e 29 3b |pBool: B|oolean);|
|000011e0| 0d 09 42 45 47 49 4e 0d | 09 09 70 42 6f 6f 6c 20 |..BEGIN.|..pBool |
|000011f0| 3a 3d 20 4e 4f 54 20 70 | 42 6f 6f 6c 3b 0d 09 09 |:= NOT p|Bool;...|
|00001200| 66 69 6c 65 42 69 74 73 | 5b 30 5d 20 3a 3d 20 54 |fileBits|[0] := T|
|00001210| 52 55 45 3b 0d 09 45 4e | 44 3b 0d 0d 0d 7b 7d 0d |RUE;..EN|D;...{}.|
|00001220| 7b 09 54 61 6b 65 73 20 | 61 20 66 69 6c 65 27 73 |{.Takes |a file's|
|00001230| 20 6f 72 20 66 6f 6c 64 | 65 72 27 73 20 69 6e 66 | or fold|er's inf|
|00001240| 6f 72 6d 61 74 69 6f 6e | 20 61 6e 64 20 70 75 74 |ormation| and put|
|00001250| 73 20 69 74 20 69 6e 20 | 74 68 65 20 7d 0d 7b 09 |s it in |the }.{.|
|00001260| 72 69 67 68 74 20 70 6c | 61 63 65 73 20 69 6e 20 |right pl|aces in |
|00001270| 44 49 27 73 20 61 72 72 | 61 79 7d 0d 7b 7d 0d 09 |DI's arr|ay}.{}..|
|00001280| 50 52 4f 43 45 44 55 52 | 45 20 49 6e 66 6f 49 6e |PROCEDUR|E InfoIn|
|00001290| 20 28 70 46 53 66 6c 61 | 67 73 3a 20 69 6e 74 65 | (pFSfla|gs: inte|
|000012a0| 67 65 72 3b 20 70 43 42 | 6c 6b 3a 20 43 49 6e 66 |ger; pCB|lk: CInf|
|000012b0| 6f 50 42 50 74 72 29 3b | 0d 09 09 56 41 52 0d 09 |oPBPtr);|...VAR..|
|000012c0| 09 09 6c 43 74 72 3a 20 | 69 6e 74 65 67 65 72 3b |..lCtr: |integer;|
|000012d0| 0d 09 42 45 47 49 4e 0d | 09 09 49 46 20 28 4e 4f |..BEGIN.|..IF (NO|
|000012e0| 54 20 6d 79 42 69 74 54 | 73 74 28 70 43 42 6c 6b |T myBitT|st(pCBlk|
|000012f0| 5e 2e 69 6f 46 6c 41 74 | 74 72 69 62 2c 20 62 49 |^.ioFlAt|trib, bI|
|00001300| 73 44 69 72 29 29 20 54 | 48 45 4e 0d 09 09 42 45 |sDir)) T|HEN...BE|
|00001310| 47 49 4e 09 7b 6e 6f 74 | 20 61 20 64 69 72 65 63 |GIN.{not| a direc|
|00001320| 74 6f 72 79 7d 0d 09 09 | 09 46 4f 52 20 6c 43 74 |tory}...|.FOR lCt|
|00001330| 72 20 3a 3d 20 62 49 73 | 53 68 61 72 65 64 20 54 |r := bIs|Shared T|
|00001340| 4f 20 62 49 73 41 6c 69 | 61 73 20 44 4f 0d 09 09 |O bIsAli|as DO...|
|00001350| 09 09 66 69 6c 65 42 69 | 74 73 5b 6c 43 74 72 5d |..fileBi|ts[lCtr]|
|00001360| 20 3a 3d 20 6d 79 42 69 | 74 54 73 74 28 70 46 53 | := myBi|tTst(pFS|
|00001370| 46 6c 61 67 73 2c 20 6c | 43 74 72 29 3b 0d 0d 09 |Flags, l|Ctr);...|
|00001380| 09 09 66 69 6c 65 42 69 | 74 73 5b 31 5d 20 3a 3d |..fileBi|ts[1] :=|
|00001390| 20 6d 79 42 69 74 54 73 | 74 28 70 43 42 6c 6b 5e | myBitTs|t(pCBlk^|
|000013a0| 2e 69 6f 46 6c 41 74 74 | 72 69 62 2c 20 62 49 73 |.ioFlAtt|rib, bIs|
|000013b0| 4c 6f 63 6b 65 64 29 3b | 09 7b 66 69 6c 65 20 6c |Locked);|.{file l|
|000013c0| 6f 63 6b 65 64 20 73 74 | 61 74 65 7d 0d 09 09 09 |ocked st|ate}....|
|000013d0| 66 69 6c 65 42 69 74 73 | 5b 30 5d 20 3a 3d 20 46 |fileBits|[0] := F|
|000013e0| 41 4c 53 45 3b 09 7b 63 | 6c 65 61 72 20 74 68 65 |ALSE;.{c|lear the|
|000013f0| 20 64 69 72 74 79 20 66 | 6c 61 67 7d 0d 09 09 45 | dirty f|lag}...E|
|00001400| 4e 44 0d 09 09 45 4c 53 | 45 09 7b 69 74 27 73 20 |ND...ELS|E.{it's |
|00001410| 61 20 66 69 6c 65 21 7d | 0d 09 09 42 45 47 49 4e |a file!}|...BEGIN|
|00001420| 0d 09 09 09 66 69 6c 65 | 42 69 74 73 5b 37 5d 20 |....file|Bits[7] |
|00001430| 3a 3d 20 6d 79 42 69 74 | 54 73 74 28 70 43 42 6c |:= myBit|Tst(pCBl|
|00001440| 6b 5e 2e 69 6f 46 6c 46 | 6e 64 72 49 6e 66 6f 2e |k^.ioFlF|ndrInfo.|
|00001450| 66 64 46 6c 61 67 73 2c | 20 62 49 6e 76 69 73 69 |fdFlags,| bInvisi|
|00001460| 62 6c 65 29 3b 09 7b 69 | 6e 76 69 73 69 62 6c 65 |ble);.{i|nvisible|
|00001470| 7d 0d 09 09 09 66 69 6c | 65 42 69 74 73 5b 36 5d |}....fil|eBits[6]|
|00001480| 20 3a 3d 20 6d 79 42 69 | 74 54 73 74 28 70 43 42 | := myBi|tTst(pCB|
|00001490| 6c 6b 5e 2e 69 6f 46 6c | 46 6e 64 72 49 6e 66 6f |lk^.ioFl|FndrInfo|
|000014a0| 2e 66 64 46 6c 61 67 73 | 2c 20 62 4e 61 6d 65 4c |.fdFlags|, bNameL|
|000014b0| 6f 63 6b 29 3b 09 7b 6e | 61 6d 65 20 6c 6f 63 6b |ock);.{n|ame lock|
|000014c0| 7d 0d 09 09 09 66 69 6c | 65 42 69 74 73 5b 35 5d |}....fil|eBits[5]|
|000014d0| 20 3a 3d 20 6d 79 42 69 | 74 54 73 74 28 70 43 42 | := myBi|tTst(pCB|
|000014e0| 6c 6b 5e 2e 69 6f 46 6c | 46 6e 64 72 49 6e 66 6f |lk^.ioFl|FndrInfo|
|000014f0| 2e 66 64 46 6c 61 67 73 | 2c 20 62 43 75 73 74 6f |.fdFlags|, bCusto|
|00001500| 6d 49 63 6e 29 3b 09 7b | 63 75 73 74 6f 6d 20 69 |mIcn);.{|custom i|
|00001510| 63 6f 6e 7d 0d 09 09 09 | 66 69 6c 65 42 69 74 73 |con}....|fileBits|
|00001520| 5b 34 5d 20 3a 3d 20 6d | 79 42 69 74 54 73 74 28 |[4] := m|yBitTst(|
|00001530| 70 43 42 6c 6b 5e 2e 69 | 6f 46 6c 46 6e 64 72 49 |pCBlk^.i|oFlFndrI|
|00001540| 6e 66 6f 2e 66 64 46 6c | 61 67 73 2c 20 62 49 6e |nfo.fdFl|ags, bIn|
|00001550| 69 74 65 64 29 3b 09 09 | 7b 69 6e 69 74 74 65 64 |ited);..|{initted|
|00001560| 7d 0d 09 09 09 66 69 6c | 65 42 69 74 73 5b 30 5d |}....fil|eBits[0]|
|00001570| 20 3a 3d 20 46 41 4c 53 | 45 3b 09 7b 63 6c 65 61 | := FALS|E;.{clea|
|00001580| 72 20 74 68 65 20 64 69 | 72 74 79 20 66 6c 61 67 |r the di|rty flag|
|00001590| 7d 0d 09 09 45 4e 44 3b | 0d 09 45 4e 44 3b 0d 0d |}...END;|..END;..|
|000015a0| 0d 7b 7d 0d 7b 09 54 68 | 65 20 72 65 76 65 72 73 |.{}.{.Th|e revers|
|000015b0| 65 20 6f 66 20 49 6e 66 | 6f 49 6e 3b 20 74 61 6b |e of Inf|oIn; tak|
|000015c0| 65 73 20 74 68 65 20 66 | 69 6c 65 27 73 20 6f 72 |es the f|ile's or|
|000015d0| 20 66 6f 6c 64 65 72 27 | 73 20 69 6e 66 6f 72 6d | folder'|s inform|
|000015e0| 61 74 69 6f 6e 20 66 72 | 6f 6d 20 7d 0d 7b 09 44 |ation fr|om }.{.D|
|000015f0| 49 27 73 20 61 72 72 61 | 79 20 61 6e 64 20 66 69 |I's arra|y and fi|
|00001600| 6c 6c 73 20 6f 75 74 20 | 74 68 65 20 4f 53 27 20 |lls out |the OS' |
|00001610| 64 61 74 61 20 73 74 72 | 75 63 74 75 72 65 7d 0d |data str|ucture}.|
|00001620| 7b 7d 0d 09 50 52 4f 43 | 45 44 55 52 45 20 49 6e |{}..PROC|EDURE In|
|00001630| 66 6f 4f 75 74 20 28 56 | 41 52 20 70 46 53 66 6c |foOut (V|AR pFSfl|
|00001640| 61 67 73 3a 20 69 6e 74 | 65 67 65 72 3b 20 70 46 |ags: int|eger; pF|
|00001650| 53 53 3a 20 46 53 53 70 | 65 63 3b 20 70 43 42 6c |SS: FSSp|ec; pCBl|
|00001660| 6b 3a 20 43 49 6e 66 6f | 50 42 50 74 72 29 3b 0d |k: CInfo|PBPtr);.|
|00001670| 09 09 56 41 52 0d 09 09 | 09 6c 45 72 72 3a 20 4f |..VAR...|.lErr: O|
|00001680| 53 45 72 72 3b 0d 09 09 | 09 6c 43 74 72 3a 20 69 |SErr;...|.lCtr: i|
|00001690| 6e 74 65 67 65 72 3b 0d | 09 42 45 47 49 4e 0d 09 |nteger;.|.BEGIN..|
|000016a0| 09 49 46 20 28 4e 4f 54 | 20 6d 79 42 69 74 54 73 |.IF (NOT| myBitTs|
|000016b0| 74 28 70 43 42 6c 6b 5e | 2e 69 6f 46 6c 41 74 74 |t(pCBlk^|.ioFlAtt|
|000016c0| 72 69 62 2c 20 62 49 73 | 44 69 72 29 29 20 54 48 |rib, bIs|Dir)) TH|
|000016d0| 45 4e 0d 09 09 42 45 47 | 49 4e 09 7b 6e 6f 74 20 |EN...BEG|IN.{not |
|000016e0| 61 20 64 69 72 65 63 74 | 6f 72 79 7d 0d 09 09 09 |a direct|ory}....|
|000016f0| 46 4f 52 20 6c 43 74 72 | 20 3a 3d 20 62 49 73 53 |FOR lCtr| := bIsS|
|00001700| 68 61 72 65 64 20 54 4f | 20 62 49 73 41 6c 69 61 |hared TO| bIsAlia|
|00001710| 73 20 44 4f 0d 09 09 09 | 09 6d 79 42 69 74 53 65 |s DO....|.myBitSe|
|00001720| 74 43 6c 72 28 70 46 53 | 46 6c 61 67 73 2c 20 6c |tClr(pFS|Flags, l|
|00001730| 43 74 72 2c 20 66 69 6c | 65 42 69 74 73 5b 6c 43 |Ctr, fil|eBits[lC|
|00001740| 74 72 5d 29 3b 0d 0d 09 | 09 09 49 46 20 28 66 69 |tr]);...|..IF (fi|
|00001750| 6c 65 42 69 74 73 5b 31 | 5d 29 20 54 48 45 4e 09 |leBits[1|]) THEN.|
|00001760| 7b 64 65 61 6c 20 77 69 | 74 68 20 66 69 6c 65 20 |{deal wi|th file |
|00001770| 6c 6f 63 6b 7d 0d 09 09 | 09 09 6c 45 72 72 20 3a |lock}...|..lErr :|
|00001780| 3d 20 46 53 70 53 65 74 | 46 4c 6f 63 6b 28 70 46 |= FSpSet|FLock(pF|
|00001790| 53 53 29 0d 09 09 09 45 | 4c 53 45 0d 09 09 09 09 |SS)....E|LSE.....|
|000017a0| 6c 45 72 72 20 3a 3d 20 | 46 53 70 52 73 74 46 4c |lErr := |FSpRstFL|
|000017b0| 6f 63 6b 28 70 46 53 53 | 29 3b 0d 09 09 45 4e 44 |ock(pFSS|);...END|
|000017c0| 0d 09 09 45 4c 53 45 09 | 7b 69 74 27 73 20 61 20 |...ELSE.|{it's a |
|000017d0| 66 69 6c 65 21 7d 0d 09 | 09 42 45 47 49 4e 0d 09 |file!}..|.BEGIN..|
|000017e0| 09 09 6d 79 42 69 74 53 | 65 74 43 6c 72 28 70 46 |..myBitS|etClr(pF|
|000017f0| 53 46 6c 61 67 73 2c 20 | 62 49 6e 76 69 73 69 62 |SFlags, |bInvisib|
|00001800| 6c 65 2c 20 66 69 6c 65 | 42 69 74 73 5b 37 5d 29 |le, file|Bits[7])|
|00001810| 3b 0d 09 09 09 6d 79 42 | 69 74 53 65 74 43 6c 72 |;....myB|itSetClr|
|00001820| 28 70 46 53 46 6c 61 67 | 73 2c 20 62 4e 61 6d 65 |(pFSFlag|s, bName|
|00001830| 4c 6f 63 6b 2c 20 66 69 | 6c 65 42 69 74 73 5b 36 |Lock, fi|leBits[6|
|00001840| 5d 29 3b 0d 09 09 09 6d | 79 42 69 74 53 65 74 43 |]);....m|yBitSetC|
|00001850| 6c 72 28 70 46 53 46 6c | 61 67 73 2c 20 62 43 75 |lr(pFSFl|ags, bCu|
|00001860| 73 74 6f 6d 49 63 6e 2c | 20 66 69 6c 65 42 69 74 |stomIcn,| fileBit|
|00001870| 73 5b 35 5d 29 3b 0d 09 | 09 09 6d 79 42 69 74 53 |s[5]);..|..myBitS|
|00001880| 65 74 43 6c 72 28 70 46 | 53 46 6c 61 67 73 2c 20 |etClr(pF|SFlags, |
|00001890| 62 49 6e 69 74 65 64 2c | 20 66 69 6c 65 42 69 74 |bInited,| fileBit|
|000018a0| 73 5b 34 5d 29 3b 0d 09 | 09 45 4e 44 3b 0d 09 45 |s[4]);..|.END;..E|
|000018b0| 4e 44 3b 0d 0d 7b 7d 0d | 7b 09 4d 6f 64 61 6c 44 |ND;..{}.|{.ModalD|
|000018c0| 69 61 6c 6f 67 20 66 69 | 6c 74 65 72 50 72 6f 63 |ialog fi|lterProc|
|000018d0| 20 7d 0d 7b 09 49 6e 20 | 61 64 64 69 74 69 6f 6e | }.{.In |addition|
|000018e0| 20 74 6f 20 74 68 65 20 | 73 74 61 6e 64 61 72 64 | to the |standard|
|000018f0| 20 6b 65 79 20 73 75 70 | 70 6f 72 74 2c 20 69 74 | key sup|port, it|
|00001900| 20 61 6c 73 6f 20 73 75 | 70 70 6f 72 74 73 20 43 | also su|pports C|
|00001910| 6d 64 2d 51 20 61 73 20 | 63 61 6e 63 65 6c 7d 0d |md-Q as |cancel}.|
|00001920| 7b 7d 0d 09 46 55 4e 43 | 54 49 4f 4e 20 4d 79 53 |{}..FUNC|TION MyS|
|00001930| 74 64 4b 65 79 46 69 6c | 74 65 72 20 28 70 44 69 |tdKeyFil|ter (pDi|
|00001940| 61 6c 3a 20 44 69 61 6c | 6f 67 50 74 72 3b 20 56 |al: Dial|ogPtr; V|
|00001950| 41 52 20 70 45 76 65 6e | 74 52 65 63 3a 20 45 76 |AR pEven|tRec: Ev|
|00001960| 65 6e 74 52 65 63 6f 72 | 64 3b 20 56 41 52 20 70 |entRecor|d; VAR p|
|00001970| 49 74 65 6d 48 69 74 3a | 20 69 6e 74 65 67 65 72 |ItemHit:| integer|
|00001980| 29 3a 20 42 6f 6f 6c 65 | 61 6e 3b 0d 09 09 43 4f |): Boole|an;...CO|
|00001990| 4e 53 54 09 09 7b 6e 65 | 65 64 20 74 68 65 73 65 |NST..{ne|ed these|
|000019a0| 20 73 69 6e 63 65 20 54 | 68 69 6e 6b 20 50 61 73 | since T|hink Pas|
|000019b0| 63 61 6c 20 64 6f 65 73 | 6e 27 74 20 6c 69 6b 65 |cal does|n't like|
|000019c0| 20 43 48 52 28 29 27 73 | 20 69 6e 20 43 41 53 45 | CHR()'s| in CASE|
|000019d0| 20 73 74 61 74 65 6d 65 | 6e 74 73 7d 0d 09 09 09 | stateme|nts}....|
|000019e0| 65 6e 74 65 72 20 3d 20 | 43 48 52 28 33 29 3b 0d |enter = |CHR(3);.|
|000019f0| 09 09 09 72 65 74 75 72 | 6e 20 3d 20 43 48 52 28 |...retur|n = CHR(|
|00001a00| 31 33 29 3b 0d 09 09 09 | 65 73 63 20 3d 20 43 48 |13);....|esc = CH|
|00001a10| 52 28 32 37 29 3b 0d 09 | 09 56 41 52 0d 09 09 09 |R(27);..|.VAR....|
|00001a20| 6c 4b 65 79 3a 20 63 68 | 61 72 3b 0d 09 09 09 72 |lKey: ch|ar;....r|
|00001a30| 65 74 56 61 6c 3a 20 42 | 6f 6f 6c 65 61 6e 3b 0d |etVal: B|oolean;.|
|00001a40| 09 42 45 47 49 4e 0d 09 | 09 72 65 74 56 61 6c 20 |.BEGIN..|.retVal |
|00001a50| 3a 3d 20 46 41 4c 53 45 | 3b 09 7b 61 73 73 75 6d |:= FALSE|;.{assum|
|00001a60| 65 20 6e 6f 20 69 6e 74 | 65 72 76 65 6e 74 69 6f |e no int|erventio|
|00001a70| 6e 7d 0d 0d 09 09 49 46 | 20 28 28 70 45 76 65 6e |n}....IF| ((pEven|
|00001a80| 74 52 65 63 2e 77 68 61 | 74 20 3d 20 6b 65 79 44 |tRec.wha|t = keyD|
|00001a90| 6f 77 6e 29 20 4f 52 20 | 28 70 45 76 65 6e 74 52 |own) OR |(pEventR|
|00001aa0| 65 63 2e 77 68 61 74 20 | 3d 20 61 75 74 6f 4b 65 |ec.what |= autoKe|
|00001ab0| 79 29 29 20 54 48 45 4e | 0d 09 09 42 45 47 49 4e |y)) THEN|...BEGIN|
|00001ac0| 0d 09 09 09 6c 4b 65 79 | 20 3a 3d 20 43 68 61 72 |....lKey| := Char|
|00001ad0| 28 42 41 4e 44 28 70 45 | 76 65 6e 74 52 65 63 2e |(BAND(pE|ventRec.|
|00001ae0| 6d 65 73 73 61 67 65 2c | 20 24 46 46 29 29 3b 0d |message,| $FF));.|
|00001af0| 09 09 09 43 41 53 45 20 | 28 6c 4b 65 79 29 20 4f |...CASE |(lKey) O|
|00001b00| 46 0d 09 09 09 09 72 65 | 74 75 72 6e 2c 20 65 6e |F.....re|turn, en|
|00001b10| 74 65 72 3a 20 0d 09 09 | 09 09 42 45 47 49 4e 0d |ter: ...|..BEGIN.|
|00001b20| 09 09 09 09 09 70 49 74 | 65 6d 48 69 74 20 3a 3d |.....pIt|emHit :=|
|00001b30| 20 31 3b 0d 09 09 09 09 | 09 46 6c 61 73 68 49 74 | 1;.....|.FlashIt|
|00001b40| 65 6d 28 70 44 69 61 6c | 2c 20 70 49 74 65 6d 48 |em(pDial|, pItemH|
|00001b50| 69 74 29 3b 0d 09 09 09 | 09 09 72 65 74 56 61 6c |it);....|..retVal|
|00001b60| 20 3a 3d 20 54 52 55 45 | 3b 0d 09 09 09 09 45 4e | := TRUE|;.....EN|
|00001b70| 44 3b 0d 0d 09 09 09 09 | 65 73 63 3a 20 0d 09 09 |D;......|esc: ...|
|00001b80| 09 09 42 45 47 49 4e 0d | 09 09 09 09 09 70 49 74 |..BEGIN.|.....pIt|
|00001b90| 65 6d 48 69 74 20 3a 3d | 20 32 3b 0d 09 09 09 09 |emHit :=| 2;.....|
|00001ba0| 09 46 6c 61 73 68 49 74 | 65 6d 28 70 44 69 61 6c |.FlashIt|em(pDial|
|00001bb0| 2c 20 70 49 74 65 6d 48 | 69 74 29 3b 0d 09 09 09 |, pItemH|it);....|
|00001bc0| 09 09 72 65 74 56 61 6c | 20 3a 3d 20 54 52 55 45 |..retVal| := TRUE|
|00001bd0| 3b 0d 09 09 09 09 45 4e | 44 3b 0d 0d 09 09 09 09 |;.....EN|D;......|
|00001be0| 27 2e 27 2c 20 27 3e 27 | 2c 20 27 71 27 2c 20 27 |'.', '>'|, 'q', '|
|00001bf0| 51 27 3a 09 7b 63 6d 64 | 2d 2e 7d 0d 09 09 09 09 |Q':.{cmd|-.}.....|
|00001c00| 09 49 46 20 28 42 41 4e | 44 28 70 45 76 65 6e 74 |.IF (BAN|D(pEvent|
|00001c10| 52 65 63 2e 6d 6f 64 69 | 66 69 65 72 73 2c 20 63 |Rec.modi|fiers, c|
|00001c20| 6d 64 4b 65 79 29 20 3e | 20 30 29 20 54 48 45 4e |mdKey) >| 0) THEN|
|00001c30| 0d 09 09 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |......BE|GIN.....|
|00001c40| 09 09 70 49 74 65 6d 48 | 69 74 20 3a 3d 20 32 3b |..pItemH|it := 2;|
|00001c50| 0d 09 09 09 09 09 09 46 | 6c 61 73 68 49 74 65 6d |.......F|lashItem|
|00001c60| 28 70 44 69 61 6c 2c 20 | 70 49 74 65 6d 48 69 74 |(pDial, |pItemHit|
|00001c70| 29 3b 0d 09 09 09 09 09 | 09 72 65 74 56 61 6c 20 |);......|.retVal |
|00001c80| 3a 3d 20 54 52 55 45 3b | 0d 0d 09 09 09 09 09 09 |:= TRUE;|........|
|00001c90| 49 46 20 28 28 6c 4b 65 | 79 20 3d 20 27 71 27 29 |IF ((lKe|y = 'q')|
|00001ca0| 20 4f 52 20 28 6c 4b 65 | 79 20 3d 20 27 51 27 29 | OR (lKe|y = 'Q')|
|00001cb0| 29 20 54 48 45 4e 0d 09 | 09 09 09 09 09 09 67 41 |) THEN..|......gA|
|00001cc0| 62 6f 72 74 20 3a 3d 20 | 54 52 55 45 3b 0d 09 09 |bort := |TRUE;...|
|00001cd0| 09 09 09 45 4e 44 3b 0d | 09 09 09 45 4e 44 3b 0d |...END;.|...END;.|
|00001ce0| 09 09 45 4e 44 3b 0d 0d | 09 09 4d 79 53 74 64 4b |..END;..|..MyStdK|
|00001cf0| 65 79 46 69 6c 74 65 72 | 20 3a 3d 20 72 65 74 56 |eyFilter| := retV|
|00001d00| 61 6c 3b 0d 09 45 4e 44 | 3b 0d 0d 0d 7b 7d 0d 7b |al;..END|;...{}.{|
|00001d10| 09 52 6f 75 74 69 6e 65 | 20 63 61 6c 6c 65 64 20 |.Routine| called |
|00001d20| 69 66 20 74 68 65 20 74 | 68 69 6e 67 20 69 6e 20 |if the t|hing in |
|00001d30| 71 75 65 73 74 69 6f 6e | 20 69 73 20 61 20 66 69 |question| is a fi|
|00001d40| 6c 65 2e 20 7d 0d 7b 09 | 7d 0d 7b 09 54 68 69 73 |le. }.{.|}.{.This|
|00001d50| 20 61 63 74 75 61 6c 6c | 79 20 64 6f 65 73 20 74 | actuall|y does t|
|00001d60| 68 65 20 77 6f 72 6b 20 | 7d 0d 7b 7d 0d 09 50 52 |he work |}.{}..PR|
|00001d70| 4f 43 45 44 55 52 45 20 | 49 74 73 41 46 69 6c 65 |OCEDURE |ItsAFile|
|00001d80| 20 28 70 46 53 53 3a 20 | 46 53 53 70 65 63 3b 20 | (pFSS: |FSSpec; |
|00001d90| 70 43 42 6c 6b 3a 20 43 | 49 6e 66 6f 50 42 50 74 |pCBlk: C|InfoPBPt|
|00001da0| 72 29 3b 0d 09 09 56 41 | 52 0d 09 09 09 6c 45 72 |r);...VA|R....lEr|
|00001db0| 72 3a 20 4f 53 45 72 72 | 3b 0d 09 09 09 6c 46 49 |r: OSErr|;....lFI|
|00001dc0| 6e 66 6f 3a 20 46 49 6e | 66 6f 3b 0d 09 09 09 6c |nfo: FIn|fo;....l|
|00001dd0| 4e 61 6d 65 53 74 72 3a | 20 53 74 72 32 35 35 3b |NameStr:| Str255;|
|00001de0| 0d 09 09 09 6c 44 69 61 | 6c 3a 20 44 69 61 6c 6f |....lDia|l: Dialo|
|00001df0| 67 50 74 72 3b 0d 09 09 | 09 6c 43 74 72 2c 20 6c |gPtr;...|.lCtr, l|
|00001e00| 49 74 65 6d 48 69 74 3a | 20 69 6e 74 65 67 65 72 |ItemHit:| integer|
|00001e10| 3b 0d 0d 09 42 45 47 49 | 4e 0d 09 09 6c 45 72 72 |;...BEGI|N...lErr|
|00001e20| 20 3a 3d 20 46 53 70 47 | 65 74 46 49 6e 66 6f 28 | := FSpG|etFInfo(|
|00001e30| 70 46 53 53 2c 20 6c 46 | 69 6e 66 6f 29 3b 0d 0d |pFSS, lF|info);..|
|00001e40| 09 09 49 46 20 28 4e 4f | 54 20 67 43 68 67 41 6c |..IF (NO|T gChgAl|
|00001e50| 6c 29 20 54 48 45 4e 0d | 09 09 42 45 47 49 4e 0d |l) THEN.|..BEGIN.|
|00001e60| 09 09 09 49 6e 66 6f 49 | 6e 28 6c 46 69 6e 66 6f |...InfoI|n(lFinfo|
|00001e70| 2e 66 64 46 6c 61 67 73 | 2c 20 40 70 43 42 6c 6b |.fdFlags|, @pCBlk|
|00001e80| 29 3b 0d 0d 09 09 09 6c | 44 69 61 6c 20 3a 3d 20 |);.....l|Dial := |
|00001e90| 47 65 74 4e 65 77 44 69 | 61 6c 6f 67 28 31 33 30 |GetNewDi|alog(130|
|00001ea0| 2c 20 4e 49 4c 2c 20 50 | 6f 69 6e 74 65 72 28 2d |, NIL, P|ointer(-|
|00001eb0| 31 29 29 3b 0d 09 09 09 | 44 65 66 42 75 74 28 6c |1));....|DefBut(l|
|00001ec0| 44 69 61 6c 29 3b 0d 0d | 09 09 7b 09 7d 0d 7b 09 |Dial);..|..{.}.{.|
|00001ed0| 09 09 53 65 74 20 75 70 | 20 74 68 65 20 64 69 61 |..Set up| the dia|
|00001ee0| 6c 6f 67 7d 0d 7b 09 09 | 7d 0d 7b 09 09 09 50 72 |log}.{..|}.{...Pr|
|00001ef0| 6f 62 61 62 6c 79 20 73 | 68 6f 75 6c 64 20 63 6f |obably s|hould co|
|00001f00| 6e 73 69 64 65 72 20 4e | 4f 54 20 75 73 69 6e 67 |nsider N|OT using|
|00001f10| 20 42 6c 6f 63 6b 4d 6f | 76 65 7d 0d 7b 09 09 09 | BlockMo|ve}.{...|
|00001f20| 61 73 20 69 74 20 69 73 | 20 56 45 52 59 20 69 6e |as it is| VERY in|
|00001f30| 65 66 66 69 63 69 65 6e | 74 20 6f 6e 20 61 6e 20 |efficien|t on an |
|00001f40| 27 30 34 30 20 64 75 65 | 20 74 6f 20 43 61 63 68 |'040 due| to Cach|
|00001f50| 65 46 6c 75 73 68 7d 0d | 7b 09 09 7d 0d 09 09 09 |eFlush}.|{..}....|
|00001f60| 42 6c 6f 63 6b 4d 6f 76 | 65 28 40 70 46 53 53 2e |BlockMov|e(@pFSS.|
|00001f70| 6e 61 6d 65 2c 20 40 6c | 4e 61 6d 65 53 74 72 2c |name, @l|NameStr,|
|00001f80| 20 4f 52 44 28 70 46 53 | 53 2e 6e 61 6d 65 5b 30 | ORD(pFS|S.name[0|
|00001f90| 5d 29 20 2b 20 31 29 3b | 0d 09 09 09 67 54 79 70 |]) + 1);|....gTyp|
|00001fa0| 65 53 74 72 5b 30 5d 20 | 3a 3d 20 43 48 52 28 34 |eStr[0] |:= CHR(4|
|00001fb0| 29 3b 0d 09 09 09 42 6c | 6f 63 6b 4d 6f 76 65 28 |);....Bl|ockMove(|
|00001fc0| 40 6c 46 69 6e 66 6f 2e | 66 64 54 79 70 65 2c 20 |@lFinfo.|fdType, |
|00001fd0| 40 67 54 79 70 65 53 74 | 72 5b 31 5d 2c 20 34 29 |@gTypeSt|r[1], 4)|
|00001fe0| 3b 0d 09 09 09 67 43 72 | 65 61 53 74 72 5b 30 5d |;....gCr|eaStr[0]|
|00001ff0| 20 3a 3d 20 43 48 52 28 | 34 29 3b 0d 09 09 09 42 | := CHR(|4);....B|
|00002000| 6c 6f 63 6b 4d 6f 76 65 | 28 40 6c 46 69 6e 66 6f |lockMove|(@lFinfo|
|00002010| 2e 66 64 43 72 65 61 74 | 6f 72 2c 20 40 67 43 72 |.fdCreat|or, @gCr|
|00002020| 65 61 53 74 72 5b 31 5d | 2c 20 34 29 3b 0d 09 09 |eaStr[1]|, 4);...|
|00002030| 09 53 65 74 54 78 74 49 | 74 65 6d 28 6c 44 69 61 |.SetTxtI|tem(lDia|
|00002040| 6c 2c 20 35 2c 20 6c 4e | 61 6d 65 53 74 72 29 3b |l, 5, lN|ameStr);|
|00002050| 0d 09 09 09 53 65 74 54 | 78 74 49 74 65 6d 28 6c |....SetT|xtItem(l|
|00002060| 44 69 61 6c 2c 20 33 2c | 20 67 54 79 70 65 53 74 |Dial, 3,| gTypeSt|
|00002070| 72 29 3b 0d 09 09 09 53 | 65 74 54 78 74 49 74 65 |r);....S|etTxtIte|
|00002080| 6d 28 6c 44 69 61 6c 2c | 20 34 2c 20 67 43 72 65 |m(lDial,| 4, gCre|
|00002090| 61 53 74 72 29 3b 0d 0d | 0d 09 09 09 46 4f 52 20 |aStr);..|....FOR |
|000020a0| 6c 43 74 72 20 3a 3d 20 | 62 49 73 53 68 61 72 65 |lCtr := |bIsShare|
|000020b0| 64 20 54 4f 20 62 49 6e | 69 74 65 64 20 44 4f 0d |d TO bIn|ited DO.|
|000020c0| 09 09 09 09 43 68 65 63 | 6b 42 6f 78 28 6c 44 69 |....Chec|kBox(lDi|
|000020d0| 61 6c 2c 20 6c 43 74 72 | 2c 20 66 69 6c 65 42 69 |al, lCtr|, fileBi|
|000020e0| 74 73 5b 6c 43 74 72 5d | 29 3b 0d 09 09 09 46 4f |ts[lCtr]|);....FO|
|000020f0| 52 20 6c 43 74 72 20 3a | 3d 20 62 43 75 73 74 6f |R lCtr :|= bCusto|
|00002100| 6d 49 63 6e 20 54 4f 20 | 62 49 73 41 6c 69 61 73 |mIcn TO |bIsAlias|
|00002110| 20 44 4f 0d 09 09 09 09 | 43 68 65 63 6b 42 6f 78 | DO.....|CheckBox|
|00002120| 28 6c 44 69 61 6c 2c 20 | 6c 43 74 72 2c 20 66 69 |(lDial, |lCtr, fi|
|00002130| 6c 65 42 69 74 73 5b 6c | 43 74 72 5d 29 3b 0d 0d |leBits[l|Ctr]);..|
|00002140| 09 09 09 43 68 65 63 6b | 42 6f 78 28 6c 44 69 61 |...Check|Box(lDia|
|00002150| 6c 2c 20 31 36 2c 20 66 | 69 6c 65 42 69 74 73 5b |l, 16, f|ileBits[|
|00002160| 31 5d 29 3b 09 09 09 09 | 09 09 09 7b 20 6c 6f 63 |1]);....|...{ loc|
|00002170| 6b 65 64 20 7d 0d 0d 09 | 09 09 49 46 20 28 67 4f |ked }...|..IF (gO|
|00002180| 6e 6c 79 4f 6e 65 29 20 | 54 48 45 4e 0d 09 09 09 |nlyOne) |THEN....|
|00002190| 09 44 69 73 45 6e 41 62 | 6c 65 28 6c 44 69 61 6c |.DisEnAb|le(lDial|
|000021a0| 2c 20 31 38 2c 20 46 41 | 4c 53 45 29 3b 0d 0d 09 |, 18, FA|LSE);...|
|000021b0| 09 09 44 72 61 77 44 69 | 61 6c 6f 67 28 6c 44 69 |..DrawDi|alog(lDi|
|000021c0| 61 6c 29 3b 0d 09 09 09 | 53 65 6c 49 54 65 78 74 |al);....|SelIText|
|000021d0| 28 6c 44 69 61 6c 2c 20 | 33 2c 20 30 2c 20 33 32 |(lDial, |3, 0, 32|
|000021e0| 37 36 37 29 3b 0d 0d 09 | 09 09 52 45 50 45 41 54 |767);...|..REPEAT|
|000021f0| 0d 09 09 09 09 67 41 62 | 6f 72 74 20 3a 3d 20 46 |.....gAb|ort := F|
|00002200| 41 4c 53 45 3b 0d 09 09 | 09 09 4d 6f 64 61 6c 44 |ALSE;...|..ModalD|
|00002210| 69 61 6c 6f 67 28 40 4d | 79 53 74 64 4b 65 79 46 |ialog(@M|yStdKeyF|
|00002220| 69 6c 74 65 72 2c 20 6c | 49 74 65 6d 48 69 74 29 |ilter, l|ItemHit)|
|00002230| 3b 0d 09 09 09 09 43 41 | 53 45 20 28 6c 49 74 65 |;.....CA|SE (lIte|
|00002240| 6d 48 69 74 29 20 4f 46 | 0d 09 09 09 09 09 31 3a |mHit) OF|......1:|
|00002250| 20 0d 09 09 09 09 09 09 | 3b 09 7b 4f 4b 7d 0d 09 | .......|;.{OK}..|
|00002260| 09 09 09 09 09 7b 44 6f | 20 6e 6f 74 68 69 6e 67 |.....{Do| nothing|
|00002270| 7d 0d 09 09 09 09 09 32 | 3a 09 7b 43 61 6e 63 65 |}......2|:.{Cance|
|00002280| 6c 7d 0d 09 09 09 09 09 | 09 66 69 6c 65 42 69 74 |l}......|.fileBit|
|00002290| 73 5b 30 5d 20 3a 3d 20 | 46 41 4c 53 45 3b 09 7b |s[0] := |FALSE;.{|
|000022a0| 63 6c 65 61 72 20 74 68 | 65 20 64 69 72 74 79 20 |clear th|e dirty |
|000022b0| 66 6c 61 67 7d 0d 09 09 | 09 09 09 31 36 3a 09 7b |flag}...|...16:.{|
|000022c0| 6c 6f 63 6b 65 64 20 73 | 74 61 74 65 7d 0d 09 09 |locked s|tate}...|
|000022d0| 09 09 09 42 45 47 49 4e | 0d 09 09 09 09 09 09 54 |...BEGIN|.......T|
|000022e0| 6f 67 67 6c 65 42 69 74 | 28 66 69 6c 65 42 69 74 |oggleBit|(fileBit|
|000022f0| 73 5b 31 5d 29 3b 0d 09 | 09 09 09 09 09 43 68 65 |s[1]);..|.....Che|
|00002300| 63 6b 42 6f 78 28 6c 44 | 69 61 6c 2c 20 31 36 2c |ckBox(lD|ial, 16,|
|00002310| 20 66 69 6c 65 42 69 74 | 73 5b 31 5d 29 3b 0d 09 | fileBit|s[1]);..|
|00002320| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 09 09 31 38 |....END;|......18|
|00002330| 3a 09 7b 63 68 61 6e 67 | 65 20 61 6c 6c 7d 0d 09 |:.{chang|e all}..|
|00002340| 09 09 09 09 42 45 47 49 | 4e 0d 09 09 09 09 09 09 |....BEGI|N.......|
|00002350| 67 43 68 67 41 6c 6c 20 | 3a 3d 20 54 52 55 45 3b |gChgAll |:= TRUE;|
|00002360| 0d 09 09 09 09 09 09 67 | 49 73 46 69 6c 65 73 20 |.......g|IsFiles |
|00002370| 3a 3d 20 54 52 55 45 3b | 0d 09 09 09 09 09 45 4e |:= TRUE;|......EN|
|00002380| 44 3b 0d 09 09 09 09 09 | 4f 54 48 45 52 57 49 53 |D;......|OTHERWIS|
|00002390| 45 09 7b 65 76 65 72 79 | 74 68 69 6e 67 20 65 6c |E.{every|thing el|
|000023a0| 73 65 21 7d 0d 09 09 09 | 09 09 42 45 47 49 4e 0d |se!}....|..BEGIN.|
|000023b0| 09 09 09 09 09 09 54 6f | 67 67 6c 65 42 69 74 28 |......To|ggleBit(|
|000023c0| 66 69 6c 65 42 69 74 73 | 5b 6c 49 74 65 6d 48 69 |fileBits|[lItemHi|
|000023d0| 74 5d 29 3b 0d 09 09 09 | 09 09 09 43 68 65 63 6b |t]);....|...Check|
|000023e0| 42 6f 78 28 6c 44 69 61 | 6c 2c 20 6c 49 74 65 6d |Box(lDia|l, lItem|
|000023f0| 48 69 74 2c 20 66 69 6c | 65 42 69 74 73 5b 6c 49 |Hit, fil|eBits[lI|
|00002400| 74 65 6d 48 69 74 5d 29 | 3b 0d 09 09 09 09 09 45 |temHit])|;......E|
|00002410| 4e 44 3b 0d 09 09 09 09 | 45 4e 44 3b 0d 09 09 09 |ND;.....|END;....|
|00002420| 55 4e 54 49 4c 20 28 28 | 6c 49 74 65 6d 48 69 74 |UNTIL ((|lItemHit|
|00002430| 20 3d 20 31 29 20 4f 52 | 20 28 6c 49 74 65 6d 48 | = 1) OR| (lItemH|
|00002440| 69 74 20 3d 20 32 29 20 | 4f 52 20 28 6c 49 74 65 |it = 2) |OR (lIte|
|00002450| 6d 48 69 74 20 3d 20 31 | 38 29 29 3b 0d 0d 09 09 |mHit = 1|8));....|
|00002460| 09 48 69 64 65 57 69 6e | 64 6f 77 28 6c 44 69 61 |.HideWin|dow(lDia|
|00002470| 6c 29 3b 0d 0d 09 09 09 | 49 46 20 28 28 6c 49 74 |l);.....|IF ((lIt|
|00002480| 65 6d 48 69 74 20 3c 3e | 20 32 29 20 41 4e 44 20 |emHit <>| 2) AND |
|00002490| 28 4e 4f 54 20 67 41 62 | 6f 72 74 29 29 20 54 48 |(NOT gAb|ort)) TH|
|000024a0| 45 4e 09 7b 69 66 20 6e | 6f 74 20 63 61 6e 63 65 |EN.{if n|ot cance|
|000024b0| 6c 20 6f 72 20 61 62 6f | 72 74 7d 0d 09 09 09 42 |l or abo|rt}....B|
|000024c0| 45 47 49 4e 0d 09 09 09 | 09 47 65 74 54 78 74 49 |EGIN....|.GetTxtI|
|000024d0| 74 65 6d 28 6c 44 69 61 | 6c 2c 20 33 2c 20 67 54 |tem(lDia|l, 3, gT|
|000024e0| 65 6d 70 53 74 72 29 3b | 0d 0d 09 09 09 09 49 46 |empStr);|......IF|
|000024f0| 20 28 4e 4f 54 20 45 71 | 75 61 6c 53 74 72 69 6e | (NOT Eq|ualStrin|
|00002500| 67 28 67 54 65 6d 70 53 | 74 72 2c 20 67 54 79 70 |g(gTempS|tr, gTyp|
|00002510| 65 53 74 72 2c 20 54 52 | 55 45 2c 20 54 52 55 45 |eStr, TR|UE, TRUE|
|00002520| 29 29 20 54 48 45 4e 0d | 09 09 09 09 42 45 47 49 |)) THEN.|....BEGI|
|00002530| 4e 0d 09 09 09 09 7b 7d | 0d 7b 09 09 09 09 09 50 |N.....{}|.{.....P|
|00002540| 72 6f 62 61 62 6c 79 20 | 73 68 6f 75 6c 64 20 63 |robably |should c|
|00002550| 6f 6e 73 69 64 65 72 20 | 4e 4f 54 20 75 73 69 6e |onsider |NOT usin|
|00002560| 67 20 42 6c 6f 63 6b 4d | 6f 76 65 7d 0d 7b 09 09 |g BlockM|ove}.{..|
|00002570| 09 09 09 61 73 20 69 74 | 20 69 73 20 56 45 52 59 |...as it| is VERY|
|00002580| 20 69 6e 65 66 66 69 63 | 69 65 6e 74 20 6f 6e 20 | ineffic|ient on |
|00002590| 61 6e 20 27 30 34 30 20 | 64 75 65 20 74 6f 20 43 |an '040 |due to C|
|000025a0| 61 63 68 65 46 6c 75 73 | 68 7d 0d 7b 09 09 09 09 |acheFlus|h}.{....|
|000025b0| 7d 0d 09 09 09 09 09 42 | 6c 6f 63 6b 4d 6f 76 65 |}......B|lockMove|
|000025c0| 28 40 67 54 65 6d 70 53 | 74 72 5b 31 5d 2c 20 40 |(@gTempS|tr[1], @|
|000025d0| 6c 46 69 6e 66 6f 2e 66 | 64 54 79 70 65 2c 20 34 |lFinfo.f|dType, 4|
|000025e0| 29 3b 0d 09 09 09 09 09 | 42 6c 6f 63 6b 4d 6f 76 |);......|BlockMov|
|000025f0| 65 28 40 67 54 65 6d 70 | 53 74 72 5b 31 5d 2c 20 |e(@gTemp|Str[1], |
|00002600| 40 67 54 79 70 65 53 74 | 72 5b 31 5d 2c 20 34 29 |@gTypeSt|r[1], 4)|
|00002610| 3b 0d 09 09 09 09 09 66 | 69 6c 65 42 69 74 73 5b |;......f|ileBits[|
|00002620| 30 5d 20 3a 3d 20 54 52 | 55 45 3b 0d 09 09 09 09 |0] := TR|UE;.....|
|00002630| 45 4e 44 3b 0d 0d 09 09 | 09 09 47 65 74 54 78 74 |END;....|..GetTxt|
|00002640| 49 74 65 6d 28 6c 44 69 | 61 6c 2c 20 34 2c 20 67 |Item(lDi|al, 4, g|
|00002650| 54 65 6d 70 53 74 72 29 | 3b 0d 09 09 09 09 49 46 |TempStr)|;.....IF|
|00002660| 20 28 4e 4f 54 20 45 71 | 75 61 6c 53 74 72 69 6e | (NOT Eq|ualStrin|
|00002670| 67 28 67 54 65 6d 70 53 | 74 72 2c 20 67 43 72 65 |g(gTempS|tr, gCre|
|00002680| 61 53 74 72 2c 20 54 52 | 55 45 2c 20 54 52 55 45 |aStr, TR|UE, TRUE|
|00002690| 29 29 20 54 48 45 4e 0d | 09 09 09 09 42 45 47 49 |)) THEN.|....BEGI|
|000026a0| 4e 0d 09 09 09 09 7b 7d | 0d 7b 09 09 09 09 09 50 |N.....{}|.{.....P|
|000026b0| 72 6f 62 61 62 6c 79 20 | 73 68 6f 75 6c 64 20 63 |robably |should c|
|000026c0| 6f 6e 73 69 64 65 72 20 | 4e 4f 54 20 75 73 69 6e |onsider |NOT usin|
|000026d0| 67 20 42 6c 6f 63 6b 4d | 6f 76 65 7d 0d 7b 09 09 |g BlockM|ove}.{..|
|000026e0| 09 09 09 61 73 20 69 74 | 20 69 73 20 56 45 52 59 |...as it| is VERY|
|000026f0| 20 69 6e 65 66 66 69 63 | 69 65 6e 74 20 6f 6e 20 | ineffic|ient on |
|00002700| 61 6e 20 27 30 34 30 20 | 64 75 65 20 74 6f 20 43 |an '040 |due to C|
|00002710| 61 63 68 65 46 6c 75 73 | 68 7d 0d 7b 09 09 09 09 |acheFlus|h}.{....|
|00002720| 7d 0d 09 09 09 09 09 42 | 6c 6f 63 6b 4d 6f 76 65 |}......B|lockMove|
|00002730| 28 40 67 54 65 6d 70 53 | 74 72 5b 31 5d 2c 20 40 |(@gTempS|tr[1], @|
|00002740| 6c 46 69 6e 66 6f 2e 66 | 64 43 72 65 61 74 6f 72 |lFinfo.f|dCreator|
|00002750| 2c 20 34 29 3b 0d 09 09 | 09 09 09 42 6c 6f 63 6b |, 4);...|...Block|
|00002760| 4d 6f 76 65 28 40 67 54 | 65 6d 70 53 74 72 5b 31 |Move(@gT|empStr[1|
|00002770| 5d 2c 20 40 67 43 72 65 | 61 53 74 72 5b 31 5d 2c |], @gCre|aStr[1],|
|00002780| 20 34 29 3b 0d 09 09 09 | 09 09 66 69 6c 65 42 69 | 4);....|..fileBi|
|00002790| 74 73 5b 30 5d 20 3a 3d | 20 54 52 55 45 3b 0d 09 |ts[0] :=| TRUE;..|
|000027a0| 09 09 09 45 4e 44 3b 0d | 09 09 09 09 47 65 74 54 |...END;.|....GetT|
|000027b0| 78 74 49 74 65 6d 28 6c | 44 69 61 6c 2c 20 35 2c |xtItem(l|Dial, 5,|
|000027c0| 20 67 54 65 6d 70 53 74 | 72 29 3b 0d 09 09 09 09 | gTempSt|r);.....|
|000027d0| 49 46 20 28 4e 4f 54 20 | 45 71 75 61 6c 53 74 72 |IF (NOT |EqualStr|
|000027e0| 69 6e 67 28 67 54 65 6d | 70 53 74 72 2c 20 6c 4e |ing(gTem|pStr, lN|
|000027f0| 61 6d 65 53 74 72 2c 20 | 54 52 55 45 2c 20 54 52 |ameStr, |TRUE, TR|
|00002800| 55 45 29 29 20 54 48 45 | 4e 0d 09 09 09 09 42 45 |UE)) THE|N.....BE|
|00002810| 47 49 4e 0d 09 09 09 09 | 09 49 46 20 28 4f 52 44 |GIN.....|.IF (ORD|
|00002820| 28 67 54 65 6d 70 53 74 | 72 5b 30 5d 29 20 3e 20 |(gTempSt|r[0]) > |
|00002830| 33 32 29 20 54 48 45 4e | 0d 09 09 09 09 09 09 67 |32) THEN|.......g|
|00002840| 54 65 6d 70 53 74 72 5b | 30 5d 20 3a 3d 20 43 48 |TempStr[|0] := CH|
|00002850| 52 28 33 32 29 3b 0d 09 | 09 09 09 09 6c 45 72 72 |R(32);..|....lErr|
|00002860| 20 3a 3d 20 46 53 70 52 | 73 74 46 4c 6f 63 6b 28 | := FSpR|stFLock(|
|00002870| 70 46 53 53 29 3b 09 09 | 09 09 7b 77 69 6c 6c 20 |pFSS);..|..{will |
|00002880| 62 65 20 72 65 73 65 74 | 20 6c 61 74 65 72 20 69 |be reset| later i|
|00002890| 66 20 6e 65 63 65 73 73 | 61 72 79 7d 0d 09 09 09 |f necess|ary}....|
|000028a0| 09 09 6c 45 72 72 20 3a | 3d 20 46 53 70 52 65 6e |..lErr :|= FSpRen|
|000028b0| 61 6d 65 28 70 46 53 53 | 2c 20 67 54 65 6d 70 53 |ame(pFSS|, gTempS|
|000028c0| 74 72 29 3b 0d 0d 09 09 | 09 09 09 49 46 20 28 6c |tr);....|...IF (l|
|000028d0| 45 72 72 20 3d 20 2d 34 | 38 29 20 54 48 45 4e 0d |Err = -4|8) THEN.|
|000028e0| 09 09 09 09 09 42 45 47 | 49 4e 0d 09 09 09 09 09 |.....BEG|IN......|
|000028f0| 09 6c 45 72 72 20 3a 3d | 20 41 6c 65 72 74 28 31 |.lErr :=| Alert(1|
|00002900| 33 32 2c 20 4e 49 4c 29 | 3b 0d 09 09 09 09 09 09 |32, NIL)|;.......|
|00002910| 66 69 6c 65 42 69 74 73 | 5b 30 5d 20 3a 3d 20 46 |fileBits|[0] := F|
|00002920| 41 4c 53 45 3b 0d 09 09 | 09 09 09 45 4e 44 0d 09 |ALSE;...|...END..|
|00002930| 09 09 09 09 45 4c 53 45 | 0d 09 09 09 09 09 42 45 |....ELSE|......BE|
|00002940| 47 49 4e 0d 09 09 09 09 | 09 09 42 6c 6f 63 6b 4d |GIN.....|..BlockM|
|00002950| 6f 76 65 28 40 67 54 65 | 6d 70 53 74 72 2c 20 40 |ove(@gTe|mpStr, @|
|00002960| 70 46 53 53 2e 6e 61 6d | 65 2c 20 4f 52 44 28 67 |pFSS.nam|e, ORD(g|
|00002970| 54 65 6d 70 53 74 72 5b | 30 5d 29 20 2b 20 31 29 |TempStr[|0]) + 1)|
|00002980| 3b 0d 09 09 09 09 09 09 | 66 69 6c 65 42 69 74 73 |;.......|fileBits|
|00002990| 5b 30 5d 20 3a 3d 20 54 | 52 55 45 3b 0d 09 09 09 |[0] := T|RUE;....|
|000029a0| 09 09 45 4e 44 3b 0d 09 | 09 09 09 45 4e 44 3b 0d |..END;..|...END;.|
|000029b0| 09 09 09 45 4e 44 3b 0d | 0d 09 09 09 44 69 73 70 |...END;.|....Disp|
|000029c0| 6f 73 44 69 61 6c 6f 67 | 28 6c 44 69 61 6c 29 3b |osDialog|(lDial);|
|000029d0| 0d 09 09 45 4e 44 0d 09 | 09 45 4c 53 45 0d 09 09 |...END..|.ELSE...|
|000029e0| 42 45 47 49 4e 0d 09 09 | 09 66 69 6c 65 42 69 74 |BEGIN...|.fileBit|
|000029f0| 73 5b 30 5d 20 3a 3d 20 | 54 52 55 45 3b 0d 09 09 |s[0] := |TRUE;...|
|00002a00| 7b 7d 0d 7b 09 09 09 50 | 72 6f 62 61 62 6c 79 20 |{}.{...P|robably |
|00002a10| 73 68 6f 75 6c 64 20 63 | 6f 6e 73 69 64 65 72 20 |should c|onsider |
|00002a20| 4e 4f 54 20 75 73 69 6e | 67 20 42 6c 6f 63 6b 4d |NOT usin|g BlockM|
|00002a30| 6f 76 65 7d 0d 7b 09 09 | 09 61 73 20 69 74 20 69 |ove}.{..|.as it i|
|00002a40| 73 20 56 45 52 59 20 69 | 6e 65 66 66 69 63 69 65 |s VERY i|nefficie|
|00002a50| 6e 74 20 6f 6e 20 61 6e | 20 27 30 34 30 20 64 75 |nt on an| '040 du|
|00002a60| 65 20 74 6f 20 43 61 63 | 68 65 46 6c 75 73 68 7d |e to Cac|heFlush}|
|00002a70| 0d 7b 09 09 7d 0d 09 09 | 09 42 6c 6f 63 6b 4d 6f |.{..}...|.BlockMo|
|00002a80| 76 65 28 40 67 54 79 70 | 65 53 74 72 5b 31 5d 2c |ve(@gTyp|eStr[1],|
|00002a90| 20 40 6c 46 69 6e 66 6f | 2e 66 64 54 79 70 65 2c | @lFinfo|.fdType,|
|00002aa0| 20 34 29 3b 0d 09 09 09 | 42 6c 6f 63 6b 4d 6f 76 | 4);....|BlockMov|
|00002ab0| 65 28 40 67 43 72 65 61 | 53 74 72 5b 31 5d 2c 20 |e(@gCrea|Str[1], |
|00002ac0| 40 6c 46 69 6e 66 6f 2e | 66 64 43 72 65 61 74 6f |@lFinfo.|fdCreato|
|00002ad0| 72 2c 20 34 29 3b 0d 09 | 09 45 4e 44 3b 0d 0d 09 |r, 4);..|.END;...|
|00002ae0| 09 49 46 20 28 66 69 6c | 65 42 69 74 73 5b 30 5d |.IF (fil|eBits[0]|
|00002af0| 29 20 54 48 45 4e 09 09 | 7b 64 69 72 74 79 20 66 |) THEN..|{dirty f|
|00002b00| 6c 61 67 20 69 73 20 73 | 65 74 7d 0d 09 09 42 45 |lag is s|et}...BE|
|00002b10| 47 49 4e 0d 09 09 09 49 | 6e 66 6f 4f 75 74 28 6c |GIN....I|nfoOut(l|
|00002b20| 46 69 6e 66 6f 2e 66 64 | 46 6c 61 67 73 2c 20 70 |Finfo.fd|Flags, p|
|00002b30| 46 53 53 2c 20 70 43 42 | 6c 6b 29 3b 0d 0d 09 09 |FSS, pCB|lk);....|
|00002b40| 09 70 43 42 6c 6b 5e 2e | 69 6f 44 69 72 49 44 20 |.pCBlk^.|ioDirID |
|00002b50| 3a 3d 20 70 46 53 53 2e | 70 61 72 49 44 3b 0d 09 |:= pFSS.|parID;..|
|00002b60| 09 09 49 46 20 28 67 43 | 68 67 41 6c 6c 29 20 54 |..IF (gC|hgAll) T|
|00002b70| 48 45 4e 0d 09 09 09 09 | 70 43 42 6c 6b 5e 2e 69 |HEN.....|pCBlk^.i|
|00002b80| 6f 4e 61 6d 65 50 74 72 | 20 3a 3d 20 4e 49 4c 0d |oNamePtr| := NIL.|
|00002b90| 09 09 09 45 4c 53 45 0d | 09 09 09 09 70 43 42 6c |...ELSE.|....pCBl|
|00002ba0| 6b 5e 2e 69 6f 4e 61 6d | 65 50 74 72 20 3a 3d 20 |k^.ioNam|ePtr := |
|00002bb0| 40 67 54 65 6d 70 53 74 | 72 3b 0d 09 09 09 6c 45 |@gTempSt|r;....lE|
|00002bc0| 72 72 20 3a 3d 20 50 42 | 53 65 74 43 61 74 49 6e |rr := PB|SetCatIn|
|00002bd0| 66 6f 28 70 43 42 6c 6b | 2c 20 46 41 4c 53 45 29 |fo(pCBlk|, FALSE)|
|00002be0| 3b 0d 0d 09 09 09 6c 45 | 72 72 20 3a 3d 20 46 53 |;.....lE|rr := FS|
|00002bf0| 70 53 65 74 46 49 6e 66 | 6f 28 70 46 53 53 2c 20 |pSetFInf|o(pFSS, |
|00002c00| 6c 46 69 6e 66 6f 29 3b | 0d 09 09 45 4e 44 3b 0d |lFinfo);|...END;.|
|00002c10| 0d 09 09 49 46 20 28 67 | 41 62 6f 72 74 29 20 54 |...IF (g|Abort) T|
|00002c20| 48 45 4e 09 09 09 09 7b | 75 73 65 72 20 77 61 6e |HEN....{|user wan|
|00002c30| 74 73 20 74 6f 20 71 75 | 69 74 7d 0d 09 09 09 53 |ts to qu|it}....S|
|00002c40| 65 6e 64 51 75 69 74 54 | 6f 53 65 6c 66 3b 09 09 |endQuitT|oSelf;..|
|00002c50| 09 09 7b 73 65 6e 64 20 | 61 20 71 75 69 74 20 65 |..{send |a quit e|
|00002c60| 76 65 6e 74 20 74 6f 20 | 6d 79 73 65 6c 66 7d 0d |vent to |myself}.|
|00002c70| 09 45 4e 44 3b 0d 0d 0d | 7b 7d 0d 7b 09 52 6f 75 |.END;...|{}.{.Rou|
|00002c80| 74 69 6e 65 20 63 61 6c | 6c 65 64 20 69 66 20 74 |tine cal|led if t|
|00002c90| 68 65 20 74 68 69 6e 67 | 20 69 6e 20 71 75 65 73 |he thing| in ques|
|00002ca0| 74 69 6f 6e 20 69 73 20 | 61 20 66 6f 6c 64 65 72 |tion is |a folder|
|00002cb0| 2e 20 7d 0d 7b 09 7d 0d | 7b 09 54 68 69 73 20 61 |. }.{.}.|{.This a|
|00002cc0| 63 74 75 61 6c 6c 79 20 | 64 6f 65 73 20 74 68 65 |ctually |does the|
|00002cd0| 20 77 6f 72 6b 7d 0d 7b | 7d 0d 09 50 52 4f 43 45 | work}.{|}..PROCE|
|00002ce0| 44 55 52 45 20 49 74 73 | 41 44 69 72 20 28 70 46 |DURE Its|ADir (pF|
|00002cf0| 53 53 3a 20 46 53 53 70 | 65 63 3b 20 70 43 42 6c |SS: FSSp|ec; pCBl|
|00002d00| 6b 3a 20 43 49 6e 66 6f | 50 42 50 74 72 29 3b 0d |k: CInfo|PBPtr);.|
|00002d10| 09 09 56 41 52 0d 09 09 | 09 6c 45 72 72 3a 20 4f |..VAR...|.lErr: O|
|00002d20| 53 45 72 72 3b 0d 09 09 | 09 6c 46 49 6e 66 6f 3a |SErr;...|.lFInfo:|
|00002d30| 20 46 49 6e 66 6f 3b 0d | 09 09 09 6c 48 42 6c 6b | FInfo;.|...lHBlk|
|00002d40| 3a 20 48 50 61 72 61 6d | 42 6c 6f 63 6b 52 65 63 |: HParam|BlockRec|
|00002d50| 3b 0d 09 09 09 6c 4e 61 | 6d 65 53 74 72 3a 20 53 |;....lNa|meStr: S|
|00002d60| 74 72 32 35 35 3b 0d 09 | 09 09 6c 44 69 61 6c 3a |tr255;..|..lDial:|
|00002d70| 20 44 69 61 6c 6f 67 50 | 74 72 3b 0d 09 09 09 6c | DialogP|tr;....l|
|00002d80| 43 74 72 3a 20 69 6e 74 | 65 67 65 72 3b 0d 09 09 |Ctr: int|eger;...|
|00002d90| 09 6c 49 74 65 6d 48 69 | 74 3a 20 69 6e 74 65 67 |.lItemHi|t: integ|
|00002da0| 65 72 3b 0d 0d 09 42 45 | 47 49 4e 0d 09 09 6c 45 |er;...BE|GIN...lE|
|00002db0| 72 72 20 3a 3d 20 6e 6f | 45 72 72 3b 0d 0d 09 09 |rr := no|Err;....|
|00002dc0| 49 46 20 28 4e 4f 54 20 | 67 43 68 67 41 6c 6c 29 |IF (NOT |gChgAll)|
|00002dd0| 20 54 48 45 4e 0d 09 09 | 42 45 47 49 4e 0d 09 09 | THEN...|BEGIN...|
|00002de0| 09 49 6e 66 6f 49 6e 28 | 6c 46 69 6e 66 6f 2e 66 |.InfoIn(|lFinfo.f|
|00002df0| 64 46 6c 61 67 73 2c 20 | 70 43 42 6c 6b 29 3b 0d |dFlags, |pCBlk);.|
|00002e00| 0d 09 09 09 6c 44 69 61 | 6c 20 3a 3d 20 47 65 74 |....lDia|l := Get|
|00002e10| 4e 65 77 44 69 61 6c 6f | 67 28 31 32 39 2c 20 4e |NewDialo|g(129, N|
|00002e20| 49 4c 2c 20 50 6f 69 6e | 74 65 72 28 2d 31 29 29 |IL, Poin|ter(-1))|
|00002e30| 3b 0d 09 09 09 44 65 66 | 42 75 74 28 6c 44 69 61 |;....Def|But(lDia|
|00002e40| 6c 29 3b 0d 0d 09 09 7b | 73 65 74 20 75 70 20 74 |l);....{|set up t|
|00002e50| 68 65 20 64 69 61 6c 6f | 67 7d 0d 0d 09 09 09 42 |he dialo|g}.....B|
|00002e60| 6c 6f 63 6b 4d 6f 76 65 | 28 40 70 46 53 53 2e 6e |lockMove|(@pFSS.n|
|00002e70| 61 6d 65 2c 20 40 6c 4e | 61 6d 65 53 74 72 2c 20 |ame, @lN|ameStr, |
|00002e80| 4f 52 44 28 70 46 53 53 | 2e 6e 61 6d 65 5b 30 5d |ORD(pFSS|.name[0]|
|00002e90| 29 20 2b 20 31 29 3b 0d | 09 09 09 53 65 74 54 78 |) + 1);.|...SetTx|
|00002ea0| 74 49 74 65 6d 28 6c 44 | 69 61 6c 2c 20 33 2c 20 |tItem(lD|ial, 3, |
|00002eb0| 6c 4e 61 6d 65 53 74 72 | 29 3b 0d 0d 09 09 09 46 |lNameStr|);.....F|
|00002ec0| 4f 52 20 6c 43 74 72 20 | 3a 3d 20 34 20 54 4f 20 |OR lCtr |:= 4 TO |
|00002ed0| 37 20 44 4f 0d 09 09 09 | 09 43 68 65 63 6b 42 6f |7 DO....|.CheckBo|
|00002ee0| 78 28 6c 44 69 61 6c 2c | 20 6c 43 74 72 2c 20 66 |x(lDial,| lCtr, f|
|00002ef0| 69 6c 65 42 69 74 73 5b | 6c 43 74 72 5d 29 3b 0d |ileBits[|lCtr]);.|
|00002f00| 0d 09 09 09 49 46 20 28 | 67 4f 6e 6c 79 4f 6e 65 |....IF (|gOnlyOne|
|00002f10| 29 20 54 48 45 4e 0d 09 | 09 09 09 44 69 73 45 6e |) THEN..|...DisEn|
|00002f20| 41 62 6c 65 28 6c 44 69 | 61 6c 2c 20 38 2c 20 46 |Able(lDi|al, 8, F|
|00002f30| 41 4c 53 45 29 3b 0d 0d | 09 09 09 44 72 61 77 44 |ALSE);..|...DrawD|
|00002f40| 69 61 6c 6f 67 28 6c 44 | 69 61 6c 29 3b 0d 09 09 |ialog(lD|ial);...|
|00002f50| 09 53 65 6c 49 54 65 78 | 74 28 6c 44 69 61 6c 2c |.SelITex|t(lDial,|
|00002f60| 20 33 2c 20 30 2c 20 33 | 32 37 36 37 29 3b 0d 0d | 3, 0, 3|2767);..|
|00002f70| 09 09 09 52 45 50 45 41 | 54 0d 09 09 09 09 4d 6f |...REPEA|T.....Mo|
|00002f80| 64 61 6c 44 69 61 6c 6f | 67 28 40 4d 79 53 74 64 |dalDialo|g(@MyStd|
|00002f90| 4b 65 79 46 69 6c 74 65 | 72 2c 20 6c 49 74 65 6d |KeyFilte|r, lItem|
|00002fa0| 48 69 74 29 3b 0d 09 09 | 09 09 43 41 53 45 20 28 |Hit);...|..CASE (|
|00002fb0| 6c 49 74 65 6d 48 69 74 | 29 20 4f 46 0d 09 09 09 |lItemHit|) OF....|
|00002fc0| 09 09 31 3a 20 0d 09 09 | 09 09 09 09 3b 09 09 09 |..1: ...|....;...|
|00002fd0| 7b 4f 4b 7d 0d 09 09 09 | 09 09 09 7b 64 6f 20 6e |{OK}....|...{do n|
|00002fe0| 6f 74 68 69 6e 67 7d 0d | 09 09 09 09 09 32 3a 09 |othing}.|.....2:.|
|00002ff0| 09 09 7b 43 61 6e 63 65 | 6c 7d 0d 09 09 09 09 09 |..{Cance|l}......|
|00003000| 09 66 69 6c 65 42 69 74 | 73 5b 30 5d 20 3a 3d 20 |.fileBit|s[0] := |
|00003010| 46 41 4c 53 45 3b 09 7b | 63 6c 65 61 72 20 64 69 |FALSE;.{|clear di|
|00003020| 72 74 79 20 66 6c 61 67 | 7d 0d 09 09 09 09 09 38 |rty flag|}......8|
|00003030| 3a 09 09 09 7b 43 68 61 | 6e 67 65 20 41 6c 6c 7d |:...{Cha|nge All}|
|00003040| 0d 09 09 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |......BE|GIN.....|
|00003050| 09 09 67 43 68 67 41 6c | 6c 20 3a 3d 20 54 52 55 |..gChgAl|l := TRU|
|00003060| 45 3b 0d 09 09 09 09 09 | 09 67 49 73 46 69 6c 65 |E;......|.gIsFile|
|00003070| 73 20 3a 3d 20 46 41 4c | 53 45 3b 0d 09 09 09 09 |s := FAL|SE;.....|
|00003080| 09 45 4e 44 3b 0d 09 09 | 09 09 09 4f 54 48 45 52 |.END;...|...OTHER|
|00003090| 57 49 53 45 09 7b 61 6c | 6c 20 74 68 65 20 62 69 |WISE.{al|l the bi|
|000030a0| 74 73 7d 0d 09 09 09 09 | 09 42 45 47 49 4e 0d 09 |ts}.....|.BEGIN..|
|000030b0| 09 09 09 09 09 54 6f 67 | 67 6c 65 42 69 74 28 66 |.....Tog|gleBit(f|
|000030c0| 69 6c 65 42 69 74 73 5b | 6c 49 74 65 6d 48 69 74 |ileBits[|lItemHit|
|000030d0| 5d 29 3b 0d 09 09 09 09 | 09 09 43 68 65 63 6b 42 |]);.....|..CheckB|
|000030e0| 6f 78 28 6c 44 69 61 6c | 2c 20 6c 49 74 65 6d 48 |ox(lDial|, lItemH|
|000030f0| 69 74 2c 20 66 69 6c 65 | 42 69 74 73 5b 6c 49 74 |it, file|Bits[lIt|
|00003100| 65 6d 48 69 74 5d 29 3b | 0d 09 09 09 09 09 45 4e |emHit]);|......EN|
|00003110| 44 3b 0d 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 55 |D;.....E|ND;....U|
|00003120| 4e 54 49 4c 20 28 28 6c | 49 74 65 6d 48 69 74 20 |NTIL ((l|ItemHit |
|00003130| 3d 20 31 29 20 4f 52 20 | 28 6c 49 74 65 6d 48 69 |= 1) OR |(lItemHi|
|00003140| 74 20 3d 20 32 29 20 4f | 52 20 28 6c 49 74 65 6d |t = 2) O|R (lItem|
|00003150| 48 69 74 20 3d 20 38 29 | 29 3b 0d 0d 09 09 09 48 |Hit = 8)|);.....H|
|00003160| 69 64 65 57 69 6e 64 6f | 77 28 6c 44 69 61 6c 29 |ideWindo|w(lDial)|
|00003170| 3b 0d 0d 09 09 09 49 46 | 20 28 67 41 62 6f 72 74 |;.....IF| (gAbort|
|00003180| 29 20 54 48 45 4e 09 7b | 63 6d 64 20 71 7d 0d 09 |) THEN.{|cmd q}..|
|00003190| 09 09 42 45 47 49 4e 0d | 09 09 09 09 44 69 73 70 |..BEGIN.|....Disp|
|000031a0| 6f 73 44 69 61 6c 6f 67 | 28 6c 44 69 61 6c 29 3b |osDialog|(lDial);|
|000031b0| 0d 09 09 09 09 53 65 6e | 64 51 75 69 74 54 6f 53 |.....Sen|dQuitToS|
|000031c0| 65 6c 66 3b 0d 09 09 09 | 45 4e 44 3b 0d 0d 09 09 |elf;....|END;....|
|000031d0| 09 49 46 20 28 6c 49 74 | 65 6d 48 69 74 20 3c 3e |.IF (lIt|emHit <>|
|000031e0| 20 32 29 20 54 48 45 4e | 09 7b 69 66 20 6e 6f 74 | 2) THEN|.{if not|
|000031f0| 20 63 61 6e 63 65 6c 7d | 0d 09 09 09 42 45 47 49 | cancel}|....BEGI|
|00003200| 4e 0d 09 09 09 09 47 65 | 74 54 78 74 49 74 65 6d |N.....Ge|tTxtItem|
|00003210| 28 6c 44 69 61 6c 2c 20 | 33 2c 20 67 54 65 6d 70 |(lDial, |3, gTemp|
|00003220| 53 74 72 29 3b 0d 0d 09 | 09 09 09 49 46 20 28 4e |Str);...|...IF (N|
|00003230| 4f 54 20 45 71 75 61 6c | 53 74 72 69 6e 67 28 67 |OT Equal|String(g|
|00003240| 54 65 6d 70 53 74 72 2c | 20 6c 4e 61 6d 65 53 74 |TempStr,| lNameSt|
|00003250| 72 2c 20 54 52 55 45 2c | 20 54 52 55 45 29 29 20 |r, TRUE,| TRUE)) |
|00003260| 54 48 45 4e 0d 09 09 09 | 09 42 45 47 49 4e 0d 09 |THEN....|.BEGIN..|
|00003270| 09 09 09 09 49 46 20 28 | 4f 52 44 28 67 54 65 6d |....IF (|ORD(gTem|
|00003280| 70 53 74 72 5b 30 5d 29 | 20 3e 20 33 32 29 20 54 |pStr[0])| > 32) T|
|00003290| 48 45 4e 0d 09 09 09 09 | 09 09 67 54 65 6d 70 53 |HEN.....|..gTempS|
|000032a0| 74 72 5b 30 5d 20 3a 3d | 20 43 48 52 28 33 32 29 |tr[0] :=| CHR(32)|
|000032b0| 3b 0d 0d 09 09 09 09 09 | 6c 48 42 6c 6b 2e 69 6f |;.......|lHBlk.io|
|000032c0| 4e 61 6d 65 50 74 72 20 | 3a 3d 20 40 6c 4e 61 6d |NamePtr |:= @lNam|
|000032d0| 65 53 74 72 3b 0d 09 09 | 09 09 09 6c 48 42 6c 6b |eStr;...|...lHBlk|
|000032e0| 2e 69 6f 56 52 65 66 4e | 75 6d 20 3a 3d 20 70 46 |.ioVRefN|um := pF|
|000032f0| 53 53 2e 76 52 65 66 4e | 75 6d 3b 0d 09 09 09 09 |SS.vRefN|um;.....|
|00003300| 09 6c 48 42 6c 6b 2e 69 | 6f 4d 69 73 63 20 3a 3d |.lHBlk.i|oMisc :=|
|00003310| 20 50 74 72 28 40 67 54 | 65 6d 70 53 74 72 29 3b | Ptr(@gT|empStr);|
|00003320| 0d 09 09 09 09 09 6c 48 | 42 6c 6b 2e 69 6f 44 69 |......lH|Blk.ioDi|
|00003330| 72 49 44 20 3a 3d 20 70 | 46 53 53 2e 70 61 72 49 |rID := p|FSS.parI|
|00003340| 44 3b 0d 09 09 09 09 09 | 6c 45 72 72 20 3a 3d 20 |D;......|lErr := |
|00003350| 50 42 48 52 65 6e 61 6d | 65 28 40 6c 48 42 6c 6b |PBHRenam|e(@lHBlk|
|00003360| 2c 20 46 41 4c 53 45 29 | 3b 09 09 7b 72 65 6e 61 |, FALSE)|;..{rena|
|00003370| 6d 65 20 74 68 65 20 64 | 69 72 7d 0d 0d 09 09 09 |me the d|ir}.....|
|00003380| 09 09 49 46 20 28 6c 45 | 72 72 20 3d 20 2d 34 38 |..IF (lE|rr = -48|
|00003390| 29 20 54 48 45 4e 0d 09 | 09 09 09 09 42 45 47 49 |) THEN..|....BEGI|
|000033a0| 4e 0d 09 09 09 09 09 09 | 6c 45 72 72 20 3a 3d 20 |N.......|lErr := |
|000033b0| 41 6c 65 72 74 28 31 33 | 32 2c 20 4e 49 4c 29 3b |Alert(13|2, NIL);|
|000033c0| 0d 09 09 09 09 09 09 66 | 69 6c 65 42 69 74 73 5b |.......f|ileBits[|
|000033d0| 30 5d 20 3a 3d 20 46 41 | 4c 53 45 3b 0d 09 09 09 |0] := FA|LSE;....|
|000033e0| 09 09 45 4e 44 0d 09 09 | 09 09 09 45 4c 53 45 0d |..END...|...ELSE.|
|000033f0| 09 09 09 09 09 09 66 69 | 6c 65 42 69 74 73 5b 30 |......fi|leBits[0|
|00003400| 5d 20 3a 3d 20 54 52 55 | 45 3b 0d 0d 09 09 09 09 |] := TRU|E;......|
|00003410| 45 4e 44 3b 0d 09 09 09 | 45 4e 44 3b 0d 09 09 09 |END;....|END;....|
|00003420| 44 69 73 70 6f 73 44 69 | 61 6c 6f 67 28 6c 44 69 |DisposDi|alog(lDi|
|00003430| 61 6c 29 3b 0d 09 09 45 | 4e 44 0d 09 09 45 4c 53 |al);...E|ND...ELS|
|00003440| 45 0d 09 09 09 66 69 6c | 65 42 69 74 73 5b 30 5d |E....fil|eBits[0]|
|00003450| 20 3a 3d 20 74 72 75 65 | 3b 0d 0d 09 09 49 46 20 | := true|;....IF |
|00003460| 28 66 69 6c 65 42 69 74 | 73 5b 30 5d 29 20 54 48 |(fileBit|s[0]) TH|
|00003470| 45 4e 09 7b 64 69 72 74 | 79 20 66 6c 61 67 20 69 |EN.{dirt|y flag i|
|00003480| 73 20 73 65 74 7d 0d 09 | 09 42 45 47 49 4e 0d 09 |s set}..|.BEGIN..|
|00003490| 09 09 49 6e 66 6f 4f 75 | 74 28 70 43 42 6c 6b 5e |..InfoOu|t(pCBlk^|
|000034a0| 2e 69 6f 46 6c 46 6e 64 | 72 49 6e 66 6f 2e 66 64 |.ioFlFnd|rInfo.fd|
|000034b0| 46 6c 61 67 73 2c 20 70 | 46 53 53 2c 20 70 43 42 |Flags, p|FSS, pCB|
|000034c0| 6c 6b 29 3b 0d 0d 09 09 | 09 70 43 42 6c 6b 5e 2e |lk);....|.pCBlk^.|
|000034d0| 69 6f 44 69 72 49 44 20 | 3a 3d 20 70 46 53 53 2e |ioDirID |:= pFSS.|
|000034e0| 70 61 72 49 44 3b 0d 09 | 09 09 49 46 20 28 4e 4f |parID;..|..IF (NO|
|000034f0| 54 20 67 43 68 67 41 6c | 6c 29 20 54 48 45 4e 0d |T gChgAl|l) THEN.|
|00003500| 09 09 09 09 70 43 42 6c | 6b 5e 2e 69 6f 4e 61 6d |....pCBl|k^.ioNam|
|00003510| 65 50 74 72 20 3a 3d 20 | 40 67 54 65 6d 70 53 74 |ePtr := |@gTempSt|
|00003520| 72 3b 0d 09 09 09 6c 45 | 72 72 20 3a 3d 20 50 42 |r;....lE|rr := PB|
|00003530| 53 65 74 43 61 74 49 6e | 66 6f 28 70 43 42 6c 6b |SetCatIn|fo(pCBlk|
|00003540| 2c 20 46 41 4c 53 45 29 | 3b 0d 09 09 45 4e 44 3b |, FALSE)|;...END;|
|00003550| 0d 09 45 4e 44 3b 0d 0d | 0d 7b 7d 0d 7b 09 54 68 |..END;..|.{}.{.Th|
|00003560| 69 73 20 69 73 20 63 61 | 6c 6c 65 64 20 62 79 20 |is is ca|lled by |
|00003570| 44 72 6f 70 53 68 65 6c | 6c 2c 20 6f 6e 63 65 20 |DropShel|l, once |
|00003580| 66 6f 72 20 65 76 65 72 | 79 20 46 53 53 70 65 63 |for ever|y FSSpec|
|00003590| 20 72 65 63 65 69 76 65 | 64 20 76 69 61 20 6f 64 | receive|d via od|
|000035a0| 6f 63 2e 20 47 65 74 54 | 68 65 49 6e 66 6f 7d 0d |oc. GetT|heInfo}.|
|000035b0| 7b 09 69 73 20 73 69 6d | 70 6c 79 20 61 20 64 69 |{.is sim|ply a di|
|000035c0| 73 70 61 74 63 68 65 72 | 20 74 6f 20 49 74 73 41 |spatcher| to ItsA|
|000035d0| 46 69 6c 65 20 61 6e 64 | 20 49 74 73 41 46 6f 6c |File and| ItsAFol|
|000035e0| 64 65 72 2e 20 4f 6e 63 | 65 20 74 68 65 20 61 6c |der. Onc|e the al|
|000035f0| 74 65 72 61 74 69 6f 6e | 73 20 68 61 76 65 20 62 |teration|s have b|
|00003600| 65 65 6e 20 6d 61 64 65 | 7d 0d 7b 09 69 74 20 61 |een made|}.{.it a|
|00003610| 6c 73 6f 20 74 6f 75 63 | 68 65 64 20 74 68 65 20 |lso touc|hed the |
|00003620| 70 61 72 65 6e 74 20 64 | 69 72 27 73 20 6d 6f 64 |parent d|ir's mod|
|00003630| 69 66 69 63 61 74 69 6f | 6e 20 64 61 74 65 2c 20 |ificatio|n date, |
|00003640| 74 68 65 72 65 62 79 20 | 63 61 75 73 69 6e 67 20 |thereby |causing |
|00003650| 74 68 65 20 46 69 6e 64 | 65 72 20 74 6f 20 75 70 |the Find|er to up|
|00003660| 64 61 74 65 7d 0d 7b 09 | 74 68 61 74 20 64 69 72 |date}.{.|that dir|
|00003670| 65 63 74 6f 72 79 27 73 | 20 77 69 6e 64 6f 77 2e |ectory's| window.|
|00003680| 7d 0d 7b 7d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |}.{}..PR|OCEDURE |
|00003690| 47 65 74 54 68 65 49 6e | 66 6f 20 28 70 46 53 53 |GetTheIn|fo (pFSS|
|000036a0| 3a 20 46 53 53 70 65 63 | 50 74 72 29 3b 0d 09 09 |: FSSpec|Ptr);...|
|000036b0| 56 41 52 0d 09 09 09 6c | 45 72 72 3a 20 4f 53 45 |VAR....l|Err: OSE|
|000036c0| 72 72 3b 0d 09 09 09 6c | 43 42 6c 6b 3a 20 43 49 |rr;....l|CBlk: CI|
|000036d0| 6e 66 6f 50 42 52 65 63 | 3b 0d 09 42 45 47 49 4e |nfoPBRec|;..BEGIN|
|000036e0| 0d 09 09 6c 43 42 6c 6b | 2e 69 6f 56 52 65 66 4e |...lCBlk|.ioVRefN|
|000036f0| 75 6d 20 3a 3d 20 70 46 | 53 53 5e 2e 76 52 65 66 |um := pF|SS^.vRef|
|00003700| 4e 75 6d 3b 0d 09 09 6c | 43 42 6c 6b 2e 69 6f 4e |Num;...l|CBlk.ioN|
|00003710| 61 6d 65 50 74 72 20 3a | 3d 20 40 70 46 53 53 5e |amePtr :|= @pFSS^|
|00003720| 2e 6e 61 6d 65 3b 0d 09 | 09 6c 43 42 6c 6b 2e 69 |.name;..|.lCBlk.i|
|00003730| 6f 44 69 72 49 44 20 3a | 3d 20 70 46 53 53 5e 2e |oDirID :|= pFSS^.|
|00003740| 70 61 72 49 44 3b 0d 09 | 09 6c 43 42 6c 6b 2e 69 |parID;..|.lCBlk.i|
|00003750| 6f 46 44 69 72 49 6e 64 | 65 78 20 3a 3d 20 30 3b |oFDirInd|ex := 0;|
|00003760| 0d 09 09 6c 43 42 6c 6b | 2e 69 6f 43 6f 6d 70 6c |...lCBlk|.ioCompl|
|00003770| 65 74 69 6f 6e 20 3a 3d | 20 4e 49 4c 3b 0d 0d 09 |etion :=| NIL;...|
|00003780| 09 6c 45 72 72 20 3a 3d | 20 50 42 47 65 74 43 61 |.lErr :=| PBGetCa|
|00003790| 74 49 6e 66 6f 28 40 6c | 43 42 6c 6b 2c 20 46 41 |tInfo(@l|CBlk, FA|
|000037a0| 4c 53 45 29 3b 0d 0d 09 | 09 49 46 20 28 4e 4f 54 |LSE);...|.IF (NOT|
|000037b0| 20 4d 79 42 69 74 54 73 | 74 28 6c 43 42 6c 6b 2e | MyBitTs|t(lCBlk.|
|000037c0| 69 6f 46 6c 41 74 74 72 | 69 62 2c 20 62 49 73 44 |ioFlAttr|ib, bIsD|
|000037d0| 69 72 29 29 20 54 48 45 | 4e 0d 09 09 42 45 47 49 |ir)) THE|N...BEGI|
|000037e0| 4e 0d 09 09 09 49 46 20 | 28 67 43 68 67 41 6c 6c |N....IF |(gChgAll|
|000037f0| 20 41 4e 44 20 28 4e 4f | 54 20 67 49 73 46 69 6c | AND (NO|T gIsFil|
|00003800| 65 73 29 29 20 54 48 45 | 4e 0d 09 09 09 42 45 47 |es)) THE|N....BEG|
|00003810| 49 4e 0d 09 09 09 09 49 | 46 20 28 4e 4f 54 20 67 |IN.....I|F (NOT g|
|00003820| 57 61 72 6e 65 64 29 20 | 54 48 45 4e 0d 09 09 09 |Warned) |THEN....|
|00003830| 09 42 45 47 49 4e 0d 09 | 09 09 09 09 50 61 72 61 |.BEGIN..|....Para|
|00003840| 6d 54 65 78 74 28 27 66 | 6f 6c 64 65 72 73 27 2c |mText('f|olders',|
|00003850| 20 27 27 2c 20 27 27 2c | 20 27 27 29 3b 09 7b 73 | '', '',| '');.{s|
|00003860| 68 6f 75 6c 64 20 62 65 | 20 69 6e 20 61 20 72 65 |hould be| in a re|
|00003870| 73 6f 75 72 63 65 21 7d | 0d 09 09 09 09 09 6c 45 |source!}|......lE|
|00003880| 72 72 20 3a 3d 20 41 6c | 65 72 74 28 31 33 33 2c |rr := Al|ert(133,|
|00003890| 20 4e 49 4c 29 3b 0d 09 | 09 09 09 09 67 57 61 72 | NIL);..|....gWar|
|000038a0| 6e 65 64 20 3a 3d 20 54 | 52 55 45 3b 0d 09 09 09 |ned := T|RUE;....|
|000038b0| 09 45 4e 44 3b 0d 09 09 | 09 09 45 58 49 54 28 47 |.END;...|..EXIT(G|
|000038c0| 65 74 54 68 65 49 6e 66 | 6f 29 3b 0d 09 09 09 45 |etTheInf|o);....E|
|000038d0| 4e 44 0d 09 09 09 45 4c | 53 45 0d 09 09 09 09 49 |ND....EL|SE.....I|
|000038e0| 74 73 41 46 69 6c 65 28 | 70 46 53 53 5e 2c 20 40 |tsAFile(|pFSS^, @|
|000038f0| 6c 43 42 6c 6b 29 3b 0d | 09 09 45 4e 44 0d 09 09 |lCBlk);.|..END...|
|00003900| 45 4c 53 45 0d 09 09 42 | 45 47 49 4e 0d 09 09 09 |ELSE...B|EGIN....|
|00003910| 49 46 20 28 67 43 68 67 | 41 6c 6c 20 41 4e 44 20 |IF (gChg|All AND |
|00003920| 67 49 73 46 69 6c 65 73 | 29 20 54 48 45 4e 0d 09 |gIsFiles|) THEN..|
|00003930| 09 09 42 45 47 49 4e 0d | 09 09 09 09 49 46 20 28 |..BEGIN.|....IF (|
|00003940| 4e 4f 54 20 67 57 61 72 | 6e 65 64 29 20 54 48 45 |NOT gWar|ned) THE|
|00003950| 4e 0d 09 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |N.....BE|GIN.....|
|00003960| 09 50 61 72 61 6d 54 65 | 78 74 28 27 66 69 6c 65 |.ParamTe|xt('file|
|00003970| 73 27 2c 20 27 27 2c 20 | 27 27 2c 20 27 27 29 3b |s', '', |'', '');|
|00003980| 09 7b 73 68 6f 75 6c 64 | 20 62 65 20 69 6e 20 61 |.{should| be in a|
|00003990| 20 72 65 73 6f 75 72 63 | 65 21 7d 0d 09 09 09 09 | resourc|e!}.....|
|000039a0| 09 6c 45 72 72 20 3a 3d | 20 41 6c 65 72 74 28 31 |.lErr :=| Alert(1|
|000039b0| 33 33 2c 20 4e 49 4c 29 | 3b 0d 09 09 09 09 09 67 |33, NIL)|;......g|
|000039c0| 57 61 72 6e 65 64 20 3a | 3d 20 54 52 55 45 3b 0d |Warned :|= TRUE;.|
|000039d0| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 09 45 58 49 |....END;|.....EXI|
|000039e0| 54 28 47 65 74 54 68 65 | 49 6e 66 6f 29 3b 0d 09 |T(GetThe|Info);..|
|000039f0| 09 09 45 4e 44 0d 09 09 | 09 45 4c 53 45 0d 09 09 |..END...|.ELSE...|
|00003a00| 09 09 49 74 73 41 44 69 | 72 28 70 46 53 53 5e 2c |..ItsADi|r(pFSS^,|
|00003a10| 20 40 6c 43 42 6c 6b 29 | 3b 0d 09 09 45 4e 44 3b | @lCBlk)|;...END;|
|00003a20| 0d 0d 09 7b 09 7d 0d 7b | 09 09 74 6f 75 63 68 20 |...{.}.{|..touch |
|00003a30| 74 68 65 20 70 61 72 65 | 6e 74 20 64 69 72 27 73 |the pare|nt dir's|
|00003a40| 20 6d 6f 64 20 64 61 74 | 65 09 7d 0d 7b 09 09 57 | mod dat|e.}.{..W|
|00003a50| 65 20 6e 65 65 64 20 74 | 6f 20 64 6f 20 74 68 69 |e need t|o do thi|
|00003a60| 73 20 74 6f 20 67 65 74 | 20 74 68 65 20 46 69 6e |s to get| the Fin|
|00003a70| 64 65 72 20 74 6f 20 75 | 70 64 61 74 65 20 69 74 |der to u|pdate it|
|00003a80| 73 65 6c 66 20 6f 6e 20 | 64 65 6d 61 6e 64 21 7d |self on |demand!}|
|00003a90| 0d 7b 09 7d 0d 0d 09 09 | 49 46 20 28 66 69 6c 65 |.{.}....|IF (file|
|00003aa0| 42 69 74 73 5b 30 5d 29 | 20 54 48 45 4e 0d 09 09 |Bits[0])| THEN...|
|00003ab0| 42 45 47 49 4e 0d 09 09 | 09 49 46 20 28 70 46 53 |BEGIN...|.IF (pFS|
|00003ac0| 53 5e 2e 70 61 72 49 44 | 20 3c 3e 20 31 29 20 54 |S^.parID| <> 1) T|
|00003ad0| 48 45 4e 09 09 09 09 7b | 69 66 20 69 74 27 73 20 |HEN....{|if it's |
|00003ae0| 61 20 76 6f 6c 20 74 68 | 65 6e 20 72 65 75 73 65 |a vol th|en reuse|
|00003af0| 20 74 68 65 20 4e 61 6d | 65 53 74 72 7d 0d 09 09 | the Nam|eStr}...|
|00003b00| 09 09 6c 43 42 6c 6b 2e | 69 6f 4e 61 6d 65 50 74 |..lCBlk.|ioNamePt|
|00003b10| 72 20 3a 3d 20 4e 49 4c | 3b 0d 09 09 09 6c 43 42 |r := NIL|;....lCB|
|00003b20| 6c 6b 2e 69 6f 56 52 65 | 66 4e 75 6d 20 3a 3d 20 |lk.ioVRe|fNum := |
|00003b30| 70 46 53 53 5e 2e 76 52 | 65 66 4e 75 6d 3b 0d 09 |pFSS^.vR|efNum;..|
|00003b40| 09 09 6c 43 42 6c 6b 2e | 69 6f 44 72 44 69 72 49 |..lCBlk.|ioDrDirI|
|00003b50| 44 20 3a 3d 20 70 46 53 | 53 5e 2e 70 61 72 49 44 |D := pFS|S^.parID|
|00003b60| 3b 0d 09 09 09 6c 43 42 | 6c 6b 2e 69 6f 46 44 69 |;....lCB|lk.ioFDi|
|00003b70| 72 49 6e 64 65 78 20 3a | 3d 20 30 3b 0d 09 09 09 |rIndex :|= 0;....|
|00003b80| 6c 43 42 6c 6b 2e 69 6f | 43 6f 6d 70 6c 65 74 69 |lCBlk.io|Completi|
|00003b90| 6f 6e 20 3a 3d 20 4e 49 | 4c 3b 0d 0d 09 09 09 6c |on := NI|L;.....l|
|00003ba0| 45 72 72 20 3a 3d 20 50 | 42 47 65 74 43 61 74 49 |Err := P|BGetCatI|
|00003bb0| 6e 66 6f 28 40 6c 43 42 | 6c 6b 2c 20 46 41 4c 53 |nfo(@lCB|lk, FALS|
|00003bc0| 45 29 3b 0d 09 09 09 47 | 65 74 44 61 74 65 54 69 |E);....G|etDateTi|
|00003bd0| 6d 65 28 6c 43 42 6c 6b | 2e 69 6f 44 72 4d 64 44 |me(lCBlk|.ioDrMdD|
|00003be0| 61 74 29 3b 0d 09 09 09 | 6c 43 42 6c 6b 2e 69 6f |at);....|lCBlk.io|
|00003bf0| 44 72 44 69 72 49 44 20 | 3a 3d 20 70 46 53 53 5e |DrDirID |:= pFSS^|
|00003c00| 2e 70 61 72 49 44 3b 0d | 09 09 09 6c 45 72 72 20 |.parID;.|...lErr |
|00003c10| 3a 3d 20 50 42 53 65 74 | 43 61 74 49 6e 66 6f 28 |:= PBSet|CatInfo(|
|00003c20| 40 6c 43 42 6c 6b 2c 20 | 46 41 4c 53 45 29 3b 0d |@lCBlk, |FALSE);.|
|00003c30| 0d 09 09 09 6c 45 72 72 | 20 3a 3d 20 46 6c 75 73 |....lErr| := Flus|
|00003c40| 68 56 6f 6c 28 4e 49 4c | 2c 20 70 46 53 53 5e 2e |hVol(NIL|, pFSS^.|
|00003c50| 76 52 65 66 4e 75 6d 29 | 3b 0d 09 09 45 4e 44 3b |vRefNum)|;...END;|
|00003c60| 0d 09 45 4e 44 3b 0d 0d | 45 4e 44 2e 00 00 00 00 |..END;..|END.....|
|00003c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003c80| 00 00 01 00 00 00 0f 17 | 00 00 0e 17 00 00 01 0d |........|........|
|00003c90| 00 00 00 46 01 b1 2d f8 | 08 d2 00 00 00 1c 00 46 |...F..-.|.......F|
|00003ca0| 00 01 42 4b 50 54 00 00 | 00 12 44 54 56 55 00 00 |..BKPT..|..DTVU..|
|00003cb0| 09 44 49 53 74 75 66 66 | 2e 70 02 00 00 00 50 61 |.DIStuff|.p....Pa|
|00003cc0| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|00003cd0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00003ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003cf0| 00 00 a9 80 18 3f 00 00 | 00 00 00 00 10 24 ff f0 |.....?..|.....$..|
|00003d00| 2d 68 00 04 ff f4 42 67 | 48 6e ff f8 2f 3c 2d 2d |-h....Bg|Hn../<--|
|00003d10| 2d 2d 2f 3c 6c 69 73 74 | 48 6e ff a2 30 3c 08 12 |--/<list|Hn..0<..|
|00003d20| a8 16 4e ba 0b cc 2f 2e | ff fc 2f 2e ff f8 4e ba |..N.../.|../...N.|
|00003d30| fe 84 3e 80 4e ba 0b ba | 42 57 48 6e ff a2 48 6e |..>.N...|BWHn..Hn|
|00003d40| ff 9e 30 3c 04 07 a8 16 | 4e ba 0b a6 4e ba 04 32 |..0<....|N...N..2|
|00003d50| 7e 01 4f ef 00 0a 60 38 | 42 67 48 6e ff a2 2f 07 |~.O...`8|BgHn../.|
|00003d60| 2f 3c 66 73 73 20 48 6e | ff 96 48 6e ff 92 48 6e |/<fss Hn|..Hn..Hn|
|00003d70| ff aa 48 78 00 46 48 6e | ff 9a 30 3c 10 0a a8 16 |..Hx.FHn|..0<....|
|00003d80| 00 00 00 0a 00 00 35 46 | 02 31 00 00 00 00 00 00 |......5F|.1......|
|00003d90| 00 9e 00 05 00 28 00 00 | 33 a3 02 1d 01 61 15 a4 |.....(..|3....a..|
|00003da0| 80 00 ff 67 fd 86 ff ce | ff 16 94 20 00 00 00 00 |...g....|... ....|
|00003db0| 00 01 00 02 00 40 05 2a | 70 46 53 53 00 1c 00 00 |.....@.*|pFSS....|
|00003dc0| 33 ea 02 1f 01 61 15 28 | 00 00 0d 6c 43 42 6c 6b |3....a.(|...lCBlk|
|00003dd0| 2e 64 69 72 49 6e 66 6f | 00 14 00 00 35 46 02 31 |.dirInfo|....5F.1|
|00003de0| 01 61 15 18 00 00 05 6c | 45 72 72 20 00 30 00 00 |.a.....l|Err .0..|
|00003df0| 34 a6 02 27 01 61 15 08 | 80 00 ff e4 fd 87 00 fb |4..'.a..|........|
|00003e00| fe fd 94 20 00 00 00 00 | 00 01 00 06 00 40 0d 6c |... ....|.....@.l|
|00003e10| 43 42 6c 6b 2e 64 69 72 | 49 6e 66 6f 00 14 00 00 |CBlk.dir|Info....|
|00003e20| 34 a6 02 27 01 61 14 48 | 00 00 05 6c 43 42 6c 6b |4..'.a.H|...lCBlk|
|00003e30| 00 00 00 5a 00 04 00 16 | 00 00 0f 02 00 83 01 9c |...Z....|........|
|00003e40| 8e 10 00 00 07 2a 70 42 | 4d 61 70 20 00 16 00 00 |.....*pB|Map ....|
|00003e50| 0f 02 00 83 01 9c 8e 00 | 00 00 07 70 42 69 74 4e |........|...pBitN|
|00003e60| 75 6d 00 16 00 00 0f 02 | 00 83 01 9c 8d e4 00 00 |um......|........|
|00003e70| 07 70 53 74 61 74 65 20 | 00 16 00 00 0f 02 00 83 |.pState |........|
|00003e80| 01 9c 8d d4 10 02 07 6c | 4f 72 4d 61 70 20 00 00 |.......l|OrMap ..|
|00003e90| 00 78 00 03 00 00 00 48 | 00 48 00 00 00 00 02 da |.x.....H|.H......|
|00003ea0| 02 28 ff e1 ff e2 02 f9 | 02 46 03 47 05 28 03 fc |.(......|.F.G.(..|
|00003eb0| 00 02 00 00 00 48 00 48 | 00 00 00 00 02 da 02 28 |.....H.H|.......(|
|00003ec0| 00 01 00 00 00 64 00 00 | 00 01 00 01 01 01 00 00 |.....d..|........|
|00003ed0| 00 01 27 0f 00 01 00 01 | 00 00 00 00 00 00 00 00 |..'.....|........|
|00003ee0| 00 00 00 00 00 02 00 19 | 01 90 00 00 00 00 00 40 |........|.......@|
|00003ef0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 00 00 00 |........|........|
|00003f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 16 01 00 |........|........|
|00003f10| 00 00 00 00 01 00 01 00 | 01 00 00 07 07 43 6f 75 |........|.....Cou|
|00003f20| 72 69 65 72 00 00 00 9e | 0e 50 61 73 63 61 6c 20 |rier....|.Pascal |
|00003f30| 53 79 6d 62 6f 6c 73 00 | 07 44 49 53 54 55 46 46 |Symbols.|.DISTUFF|
|00003f40| 07 44 49 55 54 49 4c 53 | 07 44 53 55 54 49 4c 53 |.DIUTILS|.DSUTILS|
|00003f50| 09 44 53 47 4c 4f 42 41 | 4c 53 09 50 52 4f 43 45 |.DSGLOBA|LS.PROCE|
|00003f60| 53 53 45 53 0a 50 50 43 | 54 4f 4f 4c 42 4f 58 53 |SSES.PPC|TOOLBOXS|
|00003f70| 0b 41 50 50 4c 45 45 56 | 45 4e 54 53 07 41 4c 49 |.APPLEEV|ENTS.ALI|
|00003f80| 41 53 45 53 05 46 49 4c | 45 53 0a 47 45 53 54 41 |ASES.FIL|ES.GESTA|
|00003f90| 4c 54 45 51 55 41 08 50 | 41 43 4b 41 47 45 53 57 |LTEQUA.P|ACKAGESW|
|00003fa0| 08 54 4f 4f 4c 49 4e 54 | 46 57 06 4f 53 49 4e 54 |.TOOLINT|FW.OSINT|
|00003fb0| 46 52 09 51 55 49 43 4b | 44 52 41 57 08 4d 45 4d |FR.QUICK|DRAW.MEM|
|00003fc0| 54 59 50 45 53 53 00 00 | 09 fe 00 1f 07 44 49 53 |TYPESS..|.....DIS|
|00003fd0| 54 55 46 46 00 00 00 00 | 00 00 00 00 00 00 00 00 |TUFF....|........|
|00003fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004000| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff bd 4e ba |........|......N.|
|00004010| 01 00 00 74 01 00 00 d6 | 00 00 00 00 00 00 00 00 |...t....|........|
|00004020| 01 00 06 ee 00 00 03 16 | 01 00 09 fe 00 00 00 00 |........|........|
|00004030| a5 a8 58 58 00 6e 00 b8 | 08 25 25 5f 49 4d 00 00 |..XX.n..|.%%_IM..|
|00004040| 09 42 49 53 4c 4f 43 4b | 45 44 58 53 4c 00 00 00 |.BISLOCK|EDXSL...|
|00004050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004080| c6 66 4f ef 01 00 01 38 | 01 00 04 48 ff ff ff ff |.fO....8|...H....|
|00004090| 00 00 00 10 01 00 00 5c | 00 00 00 00 4a 1f 67 4a |.......\|....J.gJ|
|000040a0| 00 03 06 42 49 53 44 49 | 52 4b 45 44 58 53 4c 00 |...BISDI|RKEDXSL.|
|000040b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000040e0| 00 00 4e ba 00 c6 01 00 | 01 fc ff ff ff ff ff ff |..N.....|........|
|000040f0| ff ff 00 00 00 10 01 00 | 00 67 00 00 00 04 55 70 |........|.g....Up|
|00004100| 46 75 00 8f 09 42 49 53 | 53 48 41 52 45 44 58 53 |Fu...BIS|SHAREDXS|
|00004110| 4c 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |L.......|........|
|00004120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004140| 00 00 00 00 0c 28 00 c8 | 01 00 01 9a ff ff ff ff |.....(..|........|
|00004150| ff ff ff ff 00 00 00 10 | 01 00 00 10 00 00 00 06 |........|........|
|00004160| 6f 06 30 3c 00 fa 0b 42 | 48 41 53 4e 4f 49 4e 49 |o.0<...B|HASNOINI|
|00004170| 54 53 4c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |TSL.....|........|
|00004180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041a0| 00 00 00 00 00 00 6f 63 | 00 00 01 00 02 c0 01 00 |......oc|........|
|000041b0| 02 5e ff ff ff ff 00 00 | 00 10 01 00 00 7e 00 00 |.^......|.....~..|
|000041c0| 00 07 67 0a 39 6e 00 01 | 07 42 49 4e 49 54 45 44 |..g.9n..|.BINITED|
|000041d0| 4e 49 54 53 4c 00 00 00 | 00 00 00 00 00 00 00 00 |NITSL...|........|
|000041e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000041f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004200| 00 00 00 00 00 00 00 00 | 3d 41 ff f8 ff ff ff ff |........|=A......|
|00004210| 01 00 03 84 ff ff ff ff | 00 00 00 10 01 00 00 50 |........|.......P|
|00004220| 00 00 00 08 ff f0 d1 6e | 00 69 0a 42 43 55 53 54 |.......n|.i.BCUST|
|00004230| 4f 4d 49 43 4e 53 4c 00 | 00 00 00 00 00 00 00 00 |OMICNSL.|........|
|00004240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004260| 00 00 00 00 00 00 00 00 | 00 00 0c 6e 00 01 01 00 |........|...n....|
|00004270| 03 e6 01 00 03 22 ff ff | ff ff 00 00 00 10 01 00 |....."..|........|
|00004280| 00 14 00 00 00 0a 60 04 | 55 6e 00 ba 0b 42 53 54 |......`.|Un...BST|
|00004290| 41 54 49 4f 4e 41 52 59 | 4c 00 00 00 00 00 00 00 |ATIONARY|L.......|
|000042a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 0c 6e 00 01 |........|.....n..|
|000042d0| ff ff ff ff ff ff ff ff | ff ff ff ff 00 00 00 10 |........|........|
|000042e0| 01 00 00 2f 00 00 00 0b | 70 12 d0 ae 00 6e 09 42 |.../....|p....n.B|
|000042f0| 4e 41 4d 45 4c 4f 43 4b | 52 59 4c 00 00 00 00 00 |NAMELOCK|RYL.....|
|00004300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 60 08 |........|......`.|
|00004330| 20 7a ff ff ff ff 01 00 | 04 aa ff ff ff ff 00 00 | z......|........|
|00004340| 00 10 01 00 00 53 00 00 | 00 0c 26 40 20 0b 00 56 |.....S..|..&@ ..V|
|00004350| 07 42 42 55 4e 44 4c 45 | 43 4b 52 59 4c 00 00 00 |.BBUNDLE|CKRYL...|
|00004360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004390| ff f8 42 67 ff ff ff ff | 01 00 05 b0 ff ff ff ff |..Bg....|........|
|000043a0| 00 00 00 10 01 00 00 1f | 00 00 00 0d 20 6e ff fc |........|.... n..|
|000043b0| 00 08 0a 42 49 4e 56 49 | 53 49 42 4c 45 59 4c 00 |...BINVI|SIBLEYL.|
|000043c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000043f0| 00 00 20 6e 00 08 01 00 | 09 20 ff ff ff ff ff ff |.. n....|. ......|
|00004400| ff ff 00 00 00 10 01 00 | 00 2c 00 00 00 0e 20 3c |........|.,.... <|
|00004410| 01 00 00 6e 08 42 49 53 | 41 4c 49 41 53 4c 45 59 |...n.BIS|ALIASLEY|
|00004420| 4c 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |L.......|........|
|00004430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004450| 00 00 00 00 20 78 09 d6 | 01 00 05 42 01 00 06 1e |.... x..|...B....|
|00004460| ff ff ff ff 00 00 00 10 | 01 00 00 ff 00 00 00 0f |........|........|
|00004470| ff fc 22 40 00 69 09 42 | 49 54 53 41 52 52 41 59 |.."@.i.B|ITSARRAY|
|00004480| 45 59 4c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |EYL.....|........|
|00004490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000044b0| 00 00 00 00 00 00 00 60 | 48 7a ff ff ff ff ff ff |.......`|Hz......|
|000044c0| ff ff ff ff ff ff 01 00 | 05 0c 01 00 01 71 ff ff |........|.....q..|
|000044d0| 00 00 00 00 0c 66 00 00 | 00 10 00 0c 01 00 ff ff |.....f..|........|
|000044e0| 01 00 04 aa 05 ac 00 00 | 00 98 01 00 05 26 2f 2c |........|.....&/,|
|000044f0| 00 00 00 00 04 de 01 00 | ff ff ff ff ff ff 01 4c |........|.......L|
|00004500| 00 00 00 10 00 00 00 00 | 00 00 00 0f 00 63 08 46 |........|.....c.F|
|00004510| 49 4c 45 42 49 54 53 44 | 45 59 4c 00 00 00 00 00 |ILEBITSD|EYL.....|
|00004520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0c 80 |........|........|
|00004550| 4e 5e 01 00 06 8c ff ff | ff ff ff ff ff ff 01 00 |N^......|........|
|00004560| 05 0c 01 00 02 00 30 0c | ff ff 00 00 ff ff ff f0 |......0.|........|
|00004570| 2f 2e 00 08 42 a7 ff ff | ff ff 00 8f 06 47 41 42 |/...B...|.....GAB|
|00004580| 4f 52 54 52 41 59 45 59 | 4c 00 00 00 00 00 00 00 |ORTRAYEY|L.......|
|00004590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 4a 40 6d de |........|....J@m.|
|000045c0| ff ff ff ff ff ff ff ff | ff ff ff ff 00 00 00 98 |........|........|
|000045d0| 01 00 02 00 3e fc ff ff | 00 00 ff ff ff ef 4a 40 |....>...|......J@|
|000045e0| 6e de 20 2c ff ff ff ff | 00 fc 07 47 43 48 47 41 |n. ,....|...GCHGA|
|000045f0| 4c 4c 41 59 45 59 4c 00 | 00 00 00 00 00 00 00 00 |LLAYEYL.|........|
|00004600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004620| 00 00 00 00 00 00 00 00 | 00 00 00 0c 92 ae 01 00 |........|........|
|00004630| 06 fa ff ff ff ff ff ff | ff ff 00 00 00 98 01 00 |........|........|
|00004640| 02 00 30 01 ff ff 00 00 | ff ff ff ee 60 18 2f 2e |..0.....|....`./.|
|00004650| 00 0c ff ff ff ff 00 68 | 08 47 49 53 46 49 4c 45 |.......h|.GISFILE|
|00004660| 53 59 45 59 4c 00 00 00 | 00 00 00 00 00 00 00 00 |SYEYL...|........|
|00004670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004690| 00 00 00 00 00 00 00 00 | 26 40 0c 2b 01 00 07 68 |........|&@.+...h|
|000046a0| 01 00 07 d6 ff ff ff ff | 00 00 00 98 01 00 02 00 |........|........|
|000046b0| 3e 13 ff ff 00 00 ff ff | ff ed 60 16 2f 2b 00 08 |>.......|..`./+..|
|000046c0| ff ff ff ff 00 d3 07 47 | 57 41 52 4e 45 44 53 59 |.......G|WARNEDSY|
|000046d0| 45 59 4c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |EYL.....|........|
|000046e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004700| 00 00 00 00 00 00 4f 50 | 48 68 ff ff ff ff ff ff |......OP|Hh......|
|00004710| ff ff ff ff ff ff 00 00 | 00 98 01 00 02 00 32 65 |........|......2e|
|00004720| ff ff 00 00 ff ff ff ec | 00 00 4e 56 ff f4 ff ff |........|..NV....|
|00004730| ff ff 00 f4 08 47 54 59 | 50 45 53 54 52 59 45 59 |.....GTY|PESTRYEY|
|00004740| 4c 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |L.......|........|
|00004750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004770| 00 00 00 00 48 6e ff f4 | ff ff ff ff 01 00 08 44 |....Hn..|.......D|
|00004780| ff ff ff ff 0f 00 08 9e | 01 00 02 00 3e ef ff ff |........|....>...|
|00004790| 00 00 ff ff fd ec ff f4 | 22 6e 00 0c ff ff ff ff |........|"n......|
|000047a0| 00 6e 08 47 43 52 45 41 | 53 54 52 59 45 59 4c 00 |.n.GCREA|STRYEYL.|
|000047b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000047e0| 00 00 90 ae ff fc ff ff | ff ff ff ff ff ff 01 00 |........|........|
|000047f0| 07 68 0f 00 08 9e 01 00 | 02 00 3c 48 ff ff 00 00 |.h......|..<H....|
|00004800| ff ff fe ec ff e6 a0 29 | 42 67 ff ff ff ff 00 3c |.......)|Bg.....<|
|00004810| 08 47 54 45 4d 50 53 54 | 52 59 45 59 4c 00 00 00 |.GTEMPST|RYEYL...|
|00004820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004850| 48 61 6e 64 ff ff ff ff | 01 00 08 b2 ff ff ff ff |Hand....|........|
|00004860| 0f 00 08 9e 01 00 02 00 | 38 6e ff ff 00 00 ff ff |........|8n......|
|00004870| fc ec 00 10 20 2e ff f8 | ff ff ff ff 00 40 08 47 |.... ...|.....@.G|
|00004880| 4f 4e 4c 59 4f 4e 45 59 | 45 59 4c 00 00 00 00 00 |ONLYONEY|EYL.....|
|00004890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000048b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 2f 2e |........|....../.|
|000048c0| ff fc ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |........|........|
|000048d0| 00 98 01 00 02 00 38 6e | ff ff 00 00 ff ff fc eb |......8n|........|
|000048e0| 4e ba c3 f8 3d 5f ff ff | ff ff 00 e6 0a 47 45 54 |N...=_..|.....GET|
|000048f0| 54 48 45 49 4e 46 4f 59 | 4c 00 00 00 00 00 00 00 |THEINFOY|L.......|
|00004900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004920| 00 00 00 00 00 00 00 00 | 00 00 00 00 6f 6e 74 72 |........|....ontr|
|00004930| ff ff ff ff ff ff ff ff | ff ff ff ff 00 00 01 80 |........|........|
|00004940| 01 00 04 01 00 01 01 00 | 09 90 ff ff 00 6e 00 0c |........|.....n..|
|00004950| ff ff 00 00 00 00 00 00 | 00 00 00 08 04 50 46 53 |........|.....PFS|
|00004960| 53 48 45 49 4e 46 4f 59 | 4c 00 00 00 00 00 00 00 |SHEINFOY|L.......|
|00004970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004990| 00 00 00 00 00 00 00 00 | 00 00 00 00 2d 68 00 0a |........|....-h..|
|000049a0| ff ff ff ff ff ff ff ff | ff ff ff ff 0d 00 fc 92 |........|........|
|000049b0| 01 00 02 00 10 6e ff ff | 00 02 00 00 00 08 ff e4 |.....n..|........|
|000049c0| 66 1c 2f 2e ff e8 2f 2e | 00 00 00 10 00 01 00 01 |f./.../.|........|
|000049d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 11 |........|........|
|000049e0| 00 0f 0c 54 48 49 4e 4b | 5f 50 41 53 43 41 4c 4c |...THINK|_PASCALL|
|000049f0| 45 00 00 01 02 a4 23 7b | b0 a5 a8 58 5f a5 a8 57 |E.....#{|...X_..W|
|00004a00| 97 00 00 ff ff ff ff 4a | 85 08 08 00 00 00 00 01 |.......J|........|
|00004a10| 00 01 01 00 4b 00 0f 00 | 3e be ce 00 3e f3 b6 00 |....K...|>...>...|
|00004a20| 14 00 00 01 7c 00 3f 47 | 14 00 3f 51 12 00 1e a5 |....|.?G|..?Q....|
|00004a30| a8 58 58 00 00 00 00 00 | 00 00 00 00 00 a5 7a 60 |.XX.....|......z`|
|00004a40| ec 00 00 00 00 00 00 00 | 00 00 00 a5 7a 5c 42 00 |........|....z\B.|
|00004a50| 00 00 00 00 00 00 00 00 | 00 a5 7a 5c 3a 00 00 00 |........|..z\:...|
|00004a60| 00 00 00 00 00 00 00 a5 | 4d da 64 00 00 00 00 00 |........|M.d.....|
|00004a70| 00 00 00 00 00 a5 4d da | 64 00 00 00 00 00 00 00 |......M.|d.......|
|00004a80| 00 00 00 a5 7a 52 88 00 | 00 00 00 00 00 00 00 00 |....zR..|........|
|00004a90| 00 a5 7a 52 85 00 00 00 | 00 00 00 00 00 00 00 a4 |..zR....|........|
|00004aa0| 9a 44 2a 00 00 00 00 00 | 00 00 00 00 00 a5 7a 52 |.D*.....|......zR|
|00004ab0| 83 00 00 00 00 00 00 00 | 00 00 00 a5 7a 52 7e 00 |........|....zR~.|
|00004ac0| 00 00 00 00 00 00 00 00 | 00 a5 7a 52 76 00 00 00 |........|..zRv...|
|00004ad0| 00 00 00 00 00 00 01 a5 | 7a 52 69 00 00 00 00 00 |........|zRi.....|
|00004ae0| 00 00 00 00 00 a5 7a 52 | 64 00 00 00 00 00 00 00 |......zR|d.......|
|00004af0| 00 00 03 a5 7a 52 63 00 | 00 00 48 00 09 50 72 6f |....zRc.|..H..Pro|
|00004b00| 46 6f 6e 74 00 00 00 1f | 00 00 00 00 73 00 00 00 |Font....|....s...|
|00004b10| 00 40 80 dd d8 05 00 00 | 00 00 00 00 00 00 06 00 |.@......|........|
|00004b20| 04 00 2a 00 03 01 d9 02 | 0a 00 2a 00 03 01 d9 02 |..*.....|..*.....|
|00004b30| 0a a5 a8 57 97 00 00 36 | 44 00 00 36 5a 00 00 39 |...W...6|D..6Z..9|
|00004b40| 76 01 00 00 00 00 2e 00 | 02 00 00 22 b3 00 00 23 |v.......|..."...#|
|00004b50| 5c 0f 42 6c 6f 63 6b 4d | 6f 76 65 20 66 69 78 65 |\.BlockM|ove fixe|
|00004b60| 73 00 00 0e 66 00 00 0e | 66 0b 66 69 6e 64 65 72 |s...f...|f.finder|
|00004b70| 20 42 69 74 73 00 00 00 | 1e 00 2a 00 03 01 d9 02 | Bits...|..*.....|
|00004b80| 0a 00 2a 00 03 01 d9 02 | 0a 00 00 39 76 00 00 00 |..*.....|...9v...|
|00004b90| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0f 17 00 |........|........|
|00004ba0| 00 0e 17 00 00 01 0d 00 | 2c 0a 98 13 d6 00 00 00 |........|,.......|
|00004bb0| 1c 00 e2 00 04 42 4b 50 | 54 00 00 00 2a 44 54 56 |.....BKP|T...*DTV|
|00004bc0| 55 00 01 00 36 4d 50 53 | 52 00 03 00 4e 46 50 52 |U...6MPS|R...NFPR|
|00004bd0| 46 00 00 00 7e 75 6e 69 | 74 00 04 00 8a 1f 9e ff |F...~uni|t.......|
|00004be0| ff 00 00 00 00 00 00 00 | 00 65 db ff ff 00 00 00 |........|.e......|
|00004bf0| 0e 00 00 00 00 11 46 ff | ff 00 00 00 b0 00 00 00 |......F.|........|
|00004c00| 00 03 ee ff ff 00 00 01 | 0e 00 00 00 00 03 ed ff |........|........|
|00004c10| ff 00 00 0d 77 00 00 00 | 00 03 ef ff ff 00 00 0d |....w...|........|
|00004c20| c3 00 00 00 00 03 f0 ff | ff 00 00 0d f5 00 2e 07 |........|........|
|00004c30| 58 05 1a ff ff 00 00 01 | 8a 00 00 00 00 00 07 00 |X.......|........|
|00004c40| 00 00 00 01 a4 00 00 00 | 00 00 03 00 0a 00 00 02 |........|........|
|00004c50| 46 00 00 00 00 00 04 00 | 14 00 00 0c 48 00 00 00 |F.......|....H...|
|00004c60| 00 00 05 00 1a 00 00 0c | 5c 00 00 00 00 00 00 00 |........|\.......|
|00004c70| 24 00 00 0c 71 00 00 00 | 00 09 55 6e 69 74 4e 61 |$...q...|..UnitNa|
|00004c80| 6d 65 73 09 53 79 6d 62 | 54 61 62 6c 65 05 43 6f |mes.Symb|Table.Co|
|00004c90| 6e 64 73 09 43 6f 6e 64 | 4e 61 6d 65 73 06 48 65 |nds.Cond|Names.He|
|00004ca0| 61 64 65 72 00 00 00 00 | 00 00 00 00 00 00 00 00 |ader....|........|
|00004cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+